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ABSTRACT 

Composite  structure  repair  methodology  has  been  developed  to 
specific  applications  (typically  in  small  area  and  limited  to  secondary 
structure)  and  is  being  extended  to  Large  Area  Composite  Structure 
Repair  (with  target  extension  to  primary  structures).  Therefore,  the 
repair  becomes  more  critical  because  we  get  redistribution  of  stresses 
that  can  also  affect  the  zones  outside  of  the  repair  area.  For  this  reason,  an 
analytic  evaluation  of  the  repair's  reliability  has  to  be  performed  to 
define  a  parameter  which  reflects  on  the  effectiveness  of  the  repair. 

In  this  work,  we  establish  a  principal  guideline  to  evaluate  the 
redundancy  and  compare  the  reliability  of  the  repair  to  the  reliability 
of  the  parent  structure  (i.e.,  the  structure  in  the  undamaged  state). 
The  approach  adopted  is  to  utilize  structural  finite  element  analysis  to 
compute  the  state  of  stress  at  all  the  spatial  elements  of  structure  of 
the  damaged  state  and  of  the  candidate  repaired  state.  The  reliability 
of  these  two  spatially  non-uniform  stresses  is  computed  by  a  probabil- 
istic failure  criterion.  Thus,  we  can  optimize  the  repair  configuration  by 
varying  the  strength  and  the  stiffness  of  any  element  in  the  repair  site 
by  varying  lamination  angles,  and  selectively  using  hybrid  materials. 
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I.  INTRODUCTION 

A.      BACKGROUND 

Composite  materials  are  being  utilized  for  commercial  and  mili- 
tary applications.  Their  combination  of  superior  mechanical  properties 
(especially  the  redundancy),  design  versatility,  and  low  mass  density 
make  them  attractive  structural  materials.  Principal  applications  of 
composites  have  been  on  aircraft,  especially  on  fixed-wing  aircraft 
(e.g.,  F-18.  F-16,  F-15,  F-14). 

As  the  structural  use  of  composite  material  on  aircraft  increases, 
procedures  to  repair  damage  become  essential.  Composite  repair  pro- 
grams have  bee  n  undertaken  both  by  commercial  and  military  sources 
[Ref.  1].  Repair  concepts  have  been  developed  which  include  bolted 
patches  repairs  and  bonded  patches  repairs.  At  the  beginning,  the 
repair  technology  was  targeted  for  specific  applications,  typically  lim- 
ited to  small  areas  in  secondary  structures.  More  recently,  repair 
techniques  have  been  extended  to  larger  areas,  with  target  extension 
to  primary  structures  (which  inherently  have  high  strength  and  dura- 
bility requirements).  The  particular  techniques  developed  to  repair  a 
given  component  are  dependent  on  the  availability  of  specific  facilities 
and  the  level  of  structural  integrity. 

Under  Reference  1,  repair  procedures  were  developed  for  two 
repair  configurations.  The  configurations  that  were  considered  are  a 
scarf  inclusion   and   an   external  patch.  A  portable   repair  kit  was 


developed  to  provide  vacuum  pressure  and  heat  in  an  integral  rubber 
blanket.  These  techniques  permit  repairs,  verified  by  testing,  that  are 
capable  of  restoring  between  80  percent  and  100  percent  of  the  par- 
ent laminate  ultimate  allowable  loading. 

B.      STRUCTURAL  REPAIR  DESIGN 

Repair  methodology  development  through  testing  has  several 
inherent  limitations.  Only  a  specific  structural  configuration  can  be 
examined  and  optimized  for  variation  of  repair  configuration  in  terms 
of  the  resultant  effectiveness.  A  large  number  of  experiments  are  fre- 
quently impractical  due  to  economic  and  time  constraints.  This  calls 
for  the  establishment  of  an  analytical  principle  to  guide  repair 
optimization. 

In  designing  repair  of  composite  structures,  the  external  loading 
is  known  and  the  objective  is  to  restore  the  structural  functionality 
while  recovering  the  overall  structural  reliability,  which  includes  both 
the  repair  and  the  parent  structure.  The  stiffness  of  the  repair  seg- 
ment and  the  strength  of  its  attachment  may  both  influence  the  overall 
structural  reliability  by  altering  the  state  of  stresses  in  the  parent 
structure.  Thus,  a  repair  segment  with  high  stiffness  and  strong 
attachment  may  cause  structural  failure  elsewhere,  resulting  in  a 
strong  repair  but  a  weaker  overall  structure.  On  the  other  hand,  a 
repair  with  proper  stiffness  but  with  insufficient  attachment  strength 
may  fail  in  the  attachment,  also  resulting  in  a  low  structural  reliability. 

For  these  reasons,  an  appropriate  repair  methodology  for  restor- 
ing the  functionality  and  recovering  the  maximum  reliability  has  to  be 


identified.  The  joint  reliability  of  the  structure— the  repair  segment, 
the  attachment,  and  the  parent  structure— must  be  simultaneously 
considered  by  computing  the  reliability  of  each  part  associated  with  its 
respective  stress  states.  The  joint  reliability  of  the  structure  can  be 
used  as  a  parameter  which  characterizes  the  overall  effectiveness  of 
the  repair.  Based  on  this  parameter,  any  general  configuration  of 
structure  and  repair  can  now  be  evaluated  and  optimized. 

This  investigation  identifies  and  outlines  the  principal  steps  asso- 
ciated with  such  an  analytical  optimization  of  general  structural  repair. 


II.  STRUCTURAL  REPAIR  APPROACH 

A.  GENERAL   CONCEPT 

A  vital  attribute  of  composite  materials  is  structural  redundancy. 
In  order  to  identify  the  appropriate  repair  methodology  for  composite 
structures,  the  underlying  redundancy  must  be  considered. 

The  objective  of  repair  is  to  restore  the  redundancy,  even  at  the 
expense  of  increasing  the  stresses.  In  other  words,  our  goal  is  to 
restore  the  functionality  and  to  maximize  the  recoverable  reliability  of 
the  whole  structure.  The  effect  of  the  repair  on  the  entire  structure 
needs  to  be  considered  (i.e.,  the  redistribution  of  the  stresses  caused 
by  the  damage,  and  later  the  repair  itself  which  may  transfer  the  fail- 
ure to  a  different  location). 

B.  FUNCTIONALITY  AND  RELIABILITY 

To  restore  the  functionality,  elements  such  as  the  type  of  aircraft 
component  and  aerodynamic  (smoothness)  need  to  be  examined. 

From  the  strength  theory  for  composite  materials,  the  main  fac- 
tors that  are  peculiar  to  laminate  strength  analysis  (neglecting  the 
thermal  effects)  are: 

•  laminae  strength 

•  laminae  stiffness 

•  laminae  orientation 

•  laminae  thickness 

•  stacking  sequence 


Thus,  for  restoring  the  reliability  (redundancy),  we  need  to  opti- 
mize the  patch  stiffness  through  the  materials  selection  and  the  lay-up 
orientation  (including  stacking  sequence),  together  with  different  lap- 
joint  configurations  (scarf,  step,  or  external  patch).  Moreover,  the 
optimization  objective  is  to  achieve  equal  reliability  in  the  parent 
structure,  the  joint  (the  adhesive),  and  the  repair  patch,  thereby 
achieving  the  highest  possible  total  reliability  for  the  entire  structure. 
Upon  the  development  of  analytical  computation  methods  for  the  joint 
reliability  of  the  entire  structure,  the  optimal  repair  configuration  may 
be  analytically  sought  by  "iterating  the  choice  of  material  (including 
hybrids),  the  orientations  of  the  repair  patch,  and  the  joint 
configurations."  Figure  2.1  is  an  example. 

A  composite  material  structure  with  a  repaired  area  is  subjected 
to  a  complex  loading,  as  shown  in  Figure  2.1.  To  evaluate  the  reliabil- 
ity, the  stresses  in  each  spatial  location  need  to  be  determined 
through  the  stiffness  and  material  iterations. 

This  example  is  a  boundary  value  problem,  and  for  that  the  linear 
elastic  field  equations  must  be  satisfied  (see  Ref.  2). 

Due  to  the  external  load  DYsurface  traction  vector),  the  stress 
boundary  equation  is  considered, 

T.  =  o\  v  ,0   . , 

1        jJ    J  l,  j  =  x,  y,  z  (2.1) 

where  (ay)  is  the  normal  and  shear  stress  components  and  (Vj)  is  the 
unit  outer  normal  vector  to  the  surface. 


H,y 


(b) 


(c) 


Figure  2.1.  Typical  Repaired  Structure 


Due   to   the   kinematics,    the   strain-displacement   relations   are 
defined  (for  small  displacements): 


1J      2V    j    J        i    v        1,  j  =  x,  y,  z  (2.2] 


where  (ey)  is  the  strain  components  and  U{  is  the  displacement. 
Substituting  the  strains  into  the  constitutive  relation, 

^ ij  "  c ijta e im  i,  j,  1,  m  =  x,  y,  z      (2.3) 

where  Cyim  is  the  stiffness  matrix. 

Hence,  the  resulting  stresses  are  determined  by  satisfying  the 
equilibrium  equation, 

1    fJ         J  l,  j  =  x,  y.  z  (2.4) 

where  Xj  is  the  body  force  (usually  ignored  in  the  analysis). 

Now.  recall  from  the  constitutive  relation  (equation  2.3)  that  the 
stiffness  matrix  (Cyim)  characterizes  the  material  property.  In  contrast 
to  isotropic  material,  where  the  stiffness  consists  of  two  independent 
constants,  and  more  importantly,  the  stresses  are  continuous,  in  an 
orthotropic  composite  material  the  stiffness  matrix  consists  of  nine 
independent  constants,  which  reduce  to  five  for  special  orthotropic 
orientation  (because  with  respect  to  material  properties  Z  and  Y  axes 
are  equivalent).  In  a  laminate,  when  the  material  principal  axes  are  off 
the  structural  axes  and  there  is  symmetry  about  z  =  0,  the  stiffness 
matrix  consists  of  13  independent  constants.  Moreover,  the  stresses 


are  continuous  across  the  thickness  (t),  and  the  stiffness  is  a  function 
of  the  lamina  orientation  and  the  stacking  sequence. 

For  a  thin  lamina  under  plane  stress,  the  constitutive  relation  can 
be  expressed  as  [Ref.  2]: 

The  stress-strain  relation  is 


f  a. 


a 


XV 


Wll       W12        »16 
»12       =»22       »26 

LQie     Q2e     9 


66 


f  e 


ey 


xy    J 


(2.5) 


where  the  Qy,  the  so-called  reduced  stiffnesses,  are  the  Cyim  stiff- 
nesses specialized  for  plane  stress  condition  in  an  orthotropic  mate- 
rial, and  written  in  contracted  notation  (i,  j  =  1,  2,  6). 

The  stress-strain  relation  can  be  related  to  the  kth  lamina,  and 
later  (for  FEM)  to  the  nth  element, 

{0«}=»»Ue.} 


i,  j  =  x,  y,  z  r,  s  =  1,  2,  6 


(2.6) 


From  the  laminate  plate  theory  [Ref.  2],  the  resultant  external 
force  acting  on  the  laminate  shown  in  Figure  2.2  is  obtained  by  inte- 
gration of  the  stress  in  each  lamina  through  the  laminate  thickness. 
For  example. 


NX=J    axdz 

2 

t 

Mx  =  J    axzdz 


(2.7) 
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where  Nx  is  the  force  per  unit  length  of  the  cross-section  of  the  lami- 
nate. Similarly,  Mx  is  a  moment  per  unit  length. 


g&rf^pG- 


Figure  2.2.  In-Plane  Forces  and  Moments 

Finally,  by  substituting  equations  2.5  and  2.2  into  equation  2.7, 
and  summing  the  forces  (Ny)  and  the  moments  (My)  for  the  whole 
structure,  the  following  relations  are  derived  [Ref.  2]. 


{NJ=[Ars]{^}+[Brs]{kJ 
{MiJ}=[Brs]{£°J  +  [Drs]{klj} 


(2.8) 


where 


in 
Ars    =   X(Qrs)     (Zk-Zk-i) 


k=l 


N 


Brs  =  iL(Q TS)  (zj-z^j) 


k=l 


Drs    =   jZ(Qrs)     (Zj-Zj.,) 
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» 

{  k    1 

X 
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k 

XV 

9  w( 

Hx5" 

9  w, 


ay2 

*  3x3y 


(2.9) 


£°  and  ky  are  middle  surface  values  (not  functions  of  z),  e°  is  the 
strain  component,  ky  is  the  curvature,  and  wo  is  the  displacement  of 
the  middle  surface  in  the  z  direction,  t  is  the  thickness  and  Zk  is 
defined  in  Figure  2.1(c).  In  equations  2.8  and  2.9,  Ars  is  called  the 
extensional  stiffness,  Brs  is  called  coupling  stiffness  (Brs  =  0  if  the 
laminate  is  symmetrical),  and  Drs  is  called  the  bending  stiffness. 

Therefore,  the  stiffness  in  composite  material  is  not  dependent 
only  on  the  material  stiffness  (Qrs)  but  also  on  the  laminae  thickness 
(t  =  Zk  -  Zk  -  1)  and  the  stacking  sequence  (zk).  The  stiffness  matrix 
(Qrs)  changes  due  to  the  orientation  of  the  laminae  as  it  corresponds 
to  the  structure  coordinates. 

In  short,  to  iterate  the  material  stiffness  for  determining  stresses, 
numerous  independent  parameters  are  involved.  The  parent  structure 
configuration  is  given  (the  stiffnesses  are  known).  But  in  addition,  in 
composite  repair,  two  configurations  are  concurrently  being  consid- 
ered—the parent  structure  and  the  repair  (shown  in  Figure  2.1).  For 
each  of  those  configurations,  the  stresses  must  be  evaluated  and  by  the 
constitutive  relation  (equation  2.3)  they  must  match  in  their  bound- 
aries. Before  repairing  the  damage,  the  parent  structure  with  a  "hole" 
configuration  needs  to  be  iterated,  and  then  the  repaired  structure 
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configuration.  Through  the  resulting  spatial  non-homogeneous 
stresses,  it  is  impractical  to  a  priori  determine  which  configuration  is 
optimal  (i.e.,  as  can  be  done  for  isotropic  material).  Thus,  by  calculat- 
ing the  total  reliability  from  the  state  of  stresses,  we  unify  all  the  iden- 
tified parameters  into  one  single  parameter  for  optimizing  the  repair 
configuration. 

C.      CONSIDERATION 

In  this  investigation,  we  assume  that  the  functionality  of  a 
repaired  structure  must  be  the  same  as  before  damage,  so  the  repair 
effectiveness  is  measured  by  the  post-repair  reliability.  To  evaluate  the 
reliability,  comparisons  of  the  structure  before  damage,  before  repair, 
and  after  the  repair  need  to  be  done  (see  Figure  2.3). 


Parent 
structure 


Damaged 
structure 


Repaired 
structure 


R>R 

R'>R"<<R' 

Figure  2.3.  Repair  Configurations 
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The  merits  of  the  different  elements  of  design  of  the  repair  can 
be  consolidated  into  one  single  unified  parameter  and  measured  by  the 
structural  reliability. 

From  the  general  concept  of  reliability,  the  number  of  probable 
failures  is  associated  with  the  magnitude  of  the  stress  level  (the  ran- 
dom variable).  For  a  structure  of  given  dimensions,  the  higher  the  stress 
level  the  higher  the  probability  of  failure.  The  quantitative  probability  of 
failure  can  be  computed  if  the  cumulative  distribution  of  failure  is 
known.  For  a  structure  under  non-uniform  stress  (spatial  heteroge- 
neous stress),  the  structure  may  be  visualized  as  being  divided  into 
contiguous  geometric  elements  within  which  the  stresses  are  uniform. 
The  reliability  of  each  element  corresponds  to  the  respective  stress 
magnitude  of  that  element.  Equivalently,  the  magnitude  of  the  stress  at 
each  spatial  location  of  the  structure  can  be  thought  of  as  being 
mapped  into  a  respective  point  on  the  stress  space  (by  appropriate 
stress  analysis).  If  all  the  stress  magnitudes  are  within  the  domain 
bounded  by  the  strengths,  then  the  entire  structure  is  considered  to 
be  safe,  as  shown  in  Figure  2.4. 

The  mapping  of  the  physical  spatial  location  to  the  stress  domain 
is  carried  out  in  stress  analysis.  The  definition  of  the  strength  in  the 
stress  domain  is  a  failure  criterion  which  can  be  defined  either  de- 
terministically  or  probabilistically. 


12 


Stronger    material 


Figure  2.4.  Reliability  Criterion 


1.  A  deterministic  failure  criterion  can  expressed  in  terms  of  the 
scalar  stress  components,  which  are  themselves  a  function  of  the 
spatial  location  of  the  structure. 


f(°y(xk))<1  safe 


f(au(xk))>:L  ^1 


(2.10) 


where  ay  is  the  stress  component  in  tensor  notation  (i  =  1,  2,  3) 
and  Xk  is  the  spatial  coordinates  within  the  structure.  F(.)  is  a 
function  representing  the  contour  separating  all  the  safe  stress 
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states  from  all  the  non-safe  states.  For  example,  for  coupled 
strength.  F(.)  may  be  expressed  in  terms  of  a  polynomial  crite- 
rion, as  described  in  Reference  3. 

2.  A  probabilistic  failure  criterion  expressed  in  terms  of  scalar 
stress  components  as  random  variables.  The  magnitudes  of  the 
scalar  stress  are  themselves  a  function  of  the  spatial  location  of 
the  structure. 


R  =  R 


((c„)k.xk.ak.pk)  (2n) 


where  R  is  the  reliability  of  a  physical  element  located  at  spatial 
coordinates  xk  within  the  structure,  under  stress  components 
(oij)k.  ak  and  pk  are  the  statistical  parameters  of  the  probabilistic 
failure  model  associated  with  the  component  stress  oy.  The 
entire  structure  is  safe  if  the  joint  reliability  for  assemblage  of  all 
the  spatial  locations  of  the  structure  is  greater  than  or  equal  to 
the  reliability  specification. 

D.     TRADE  OFF 

In  the  spirit  of  the  consideration  above,  the  joint  reliability  is 
consorted  measure  of  the  all  the  parameters  which  need  to  be  opti- 
mized for  a  given  repair.  To  explore  the  effects  of  the  repair,  which 
include  the  size  of  the  damage  area  (after  the  clean-up)  and  the  patch 
type  (material,  stiffness,  and  type  of  joint),  trade-offs  between  stiffness 
and  strength  of  the  specific  parent  structure,  the  joining  segment,  and 
the  repair  patch  need  to  be  considered. 

If,  when  the  repair  design  is  completed,  the  structural  reliability 
is  not  met,  the  design  parameters  need  to  be  iterated  to  an  achieve  an 
acceptable  solution.  This  iteration  involves  the  redesign  of  the  struc- 
ture/ repair  configuration  and  the  selection  of  new  material  and/or  a 
new  lay-up  configuration. 
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III.  STRUCTURAL  RELIABILITY  (CONCEPT) 

A.      GENERAL   CONCEPT 

In  Chapter  II,  we  developed  the  repair  design  concept  as  it 
relates  to  reliability.  In  this  chapter,  we  will  explore  the  specifics  of 
stresses  and  strength  calculations  and  examine  their  relationship  to 
reliability.  This  relation  allows  us  to  compute  reliability  based  upon  the 
failure  criterion  which  is  most  appropriate  to  the  specific  composite 
under  consideration. 

Historically,  formulation  of  many  failure  criteria  was  intuitively 
taken  to  be  mechanistically  based  on  failure  mechanisms,  but  in  fact 
the  criteria  are  phenomenological  (because  frequently,  the  plane  of 
failure  does  not  necessarily  correspond  to  applied  stress).  Phenome- 
nological failure  criteria  represent  (describe)  failure  states  but  do  not 
explain  failure  causes  (or  mechanism).  There  is  no  uniquely  "correct" 
formulation,  and  there  is  no  a  priori  known  formula. 

The  failure  modes  observed  for  composite  materials  are  quite 
unlike  those  observed  for  isotropic  homogeneous  materials  because  of 
their  anisotropic  and  heterogeneous  nature.  Nevertheless,  it  is  essen- 
tial for  design  to  predict  the  capability  of  the  structural  element  under 
a  complex  loading.  Judgment  must  be  made  as  to  whether  the  theory 
(analytical  results)  adequately  represents  (for  a  wide  class  of  problems) 
the  physical  phenomenon  (i.e.,  experimental  results). 
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In  the  design  of  repair,  we  are  looking  at  the  parent  structure 
characteristic  and  the  repair  characteristic  as  a  whole  system's  ability 
to  withstand  a  given  load.  Then,  by  the  reliability  characterization  we 
determine  the  stress  level  (coming  from  the  applied  load),  for  which 
there  is  an  acceptable  number  of  probable  failures. 

In  a  composite  material,  trie  lamina  is  the  basic  building  block 
which  consists  of  fibers  imbedded  in  a  matrix.  In  composite  structure, 
especially  in  repair  areas,  the  stresses  are  spatially  heterogeneous, 
both  in  forms  of  stress  components  and  in  their  magnitudes.  More- 
over, because  the  lamina  is  composed  of  numerous  fibers  and 
possesses  inherent  redundancy,  the  composite  failure  process  is 
sequential  (in  stress  level).  At  the  same  time,  the  actual  behavior  of  the 
loaded  structure  often  exhibits  considerable  data  scatter  in  measured 
strength  due  to  processing  variability  (which  is  unavoidable  in  large 
composite  structures). 

(Anisotropic)  failure  criteria  are  mathematical  functions  (analyti- 
cal, numerical,  graphical)  which  define  the  stress  levels  below  which  a 
structure  is  safe.  If  the  measure  of  safety-  is  absolute,  the  failure  criteria 
are  deterministic:  otherwise,  the  failure  criteria  are  probabilistic.  The 
magnitude  of  stress  (one  component  for  1-D;  six  components  for  3-D) 
at  each  spatial  location  of  the  structure  is  mapped  into  a  respective 
point  in  the  stress  space.  If  all  the  points  are  within  the  domain 
bounded  by  the  strengths,  then  the  entire  structure  is  safe.  Ideally,  a 
failure  criterion  should  capture  the  physics  of  the  specific  failure  pro- 
cess and  the  sequential  events  of  failure. 
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Therefore,  in  order  to  calculate  the  reliability  of  a  structure  with 
non-uniform  stress,  the  state  of  stress  at  every  spatial  location  needs 
to  be  computed.  The  influence  of  these  stresses  on  the  respective 
reliability  in  those  specific  spatial  locations  can  then  be  evaluated  by  an 
appropriate  probability  model. 

B.      FAILURE  MODEL— WEIBULL  DISTRIBUTION 

In  1958(?),  Rosen  recognized  that  the  mechanism  of  composite 
failure  originated  from  the  statistical  variability  of  the  fiber  strength 
[Ref.  6].  The  failure  process  was  observed  to  be  sequential,  initiating 
from  failure  of  weak  fiber  sites;  the  load  originally  carried  by  the  weak 
fibers  is  transfered  to  the  adjacent  strong  fibers,  thereby  postponing 
immediate  failure.  Upon  additional  load  increase,  the  local  micro- 
redundancy  is  insufficient  to  sustain  the  stress  concentration,  leading 
to  catastrophic  macroscopic  failure  of  the  composite.  Harlow  and 
Phoenix  [Ref.  4]  refined  the  probabilistic  modeling  of  sequential  failure 
events  and  arrived  at  the  "chain-of-bundle"  model.  The  composite 
structure  is  modeled  as  a  chain  of  bundles  in  series.  Each  bundle  has 
length  5.  generally  referred  to  as  the  "ineffective  length."  The  ineffec- 
tive length  is  a  function  of  the  matrix  stiffness  and  the  interfacial 
bound  strength;  it  is  analytically  estimated  to  be  an  order  of  magnitude 
greater  than  the  fiber  diameter  (the  diameter  of  graphite  fiber  is 
around  5  (im).  Each  bundle  is  assumed  to  be  independent  and  identi- 
cally distributed,  and  the  cumulative  distribution  function  (CDF)  can  be 
expressed  in  terms  of  the  fiber  statistics.  Harlow  and  Phoenix  have 
also    derived,    by    analytical    recursive    formulation,    the    statistical 
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strength  behavior  of  large  composite  from  small  bundles.  Since  the 
bundles  are  in  series,  the  weakest  link  function  is  applied.  For  fila- 
ment strength,  the  Weibull  model  is  appropriate  for  the  characteriza- 
tion of  the  strength  statistics.  For  the  composite,  the  strength  may  be 
considered  as  piece-wise  Weibull,  where  the  scale  and  shape  parame- 
ters are  modified  by  the  Harlow- Phoenix  chain  of  bundle  calculations. 

For  this  investigation,  we  consider  each  spatial  element  as 
independent  and  ignore  failure  sequence  and  subsequent  load 
distribution.  This  is  equivalent  to  stating  that  if  one  point  in  any 
direction  Jails,  the  whole  structure  Jails  (failure  can  occur  in  any  element 
of  the  structure,  in  either  the  parent  structure  or  in  the  repaired 
portion  of  the  structure).  The  reliability  under  this  condition  can  be 
calculated  given  the  failure  distribution  and  the  failure  criterion. 

We  use  the  Weibull  distribution  with  parameters  adjusted  by  the 

"chain-of  bundle"  model.  The  two-parameter  Weibull  distribution  is 

expressed  as: 

For  any  ith  spatial  location  (considered  in  our  calculation  as  an  ele- 
ment), the  failure  distribution  function  (CDF)  is: 

F(a1(xj);Pi,ai)  =  l-exp{-(^)'}  (3.1) 

where 

Si—  stress  component  at  location  Xj 

Pi—  the   location   parameter,   representing  the   strength  under  the 

respective  stress  component  (oj.  It  is  dependent  on  the  size  of 
the  element. 
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aj— the   shape   parameter,    representing   dispersion   of  the   failure 
function.  It  is  also  dependent  on  the  size  of  the  element. 

Then,  the  reliability  at  each  point,  oyx) 

R(a1)  =  l-F(a1;(xj)p1,a1)  (3  2) 


R(al)=exp{-(^)] 


(3.3) 


Assuming  that  the  failure  (pi)  event  is  independent  of  all  spatial 
locations,  the  total  structure  reliability  (Rt)  can  be  represented  by: 


RT  —  RjR2  •  •  •  RK 


RT  -  li.RK 


(3.4) 


where  (Rk)  is  the  reliability  at  each  spatial  location. 

C.      SIZE— EFFECT 

In  our  approach,  for  calculating  the  state  of  stress  we  are  using  a 
finite  element  method  (FEM).  For  that  we  assume  that  a  configuration 
of  repaired  structure  is  partitioned  into  geometric  meshes  n  of  size  1 
and  m  of  size  2.  The  intrinsic  strength  of  each  element  may  be  differ- 
ent. The  choice  of  element  size  is  arbitrary,  and  because  the  same 
structure  is  under  consideration,  the  total  reliability  must  remain  the 
same. 
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RT  =  R,  =R2  (3.5) 


where 

Rt—  the  total  reliability 

Ri,  R2— The  element  reliability  (assume  equal  for  simplicity)  of  each 
meshing. 

n—  number  of  element  for  size  1 

m—  number  of  element  for  size  2 

By  Weibull  distribution, 

expRi) n} = expf(S  ml  (3-6) 

We  make  the  simplifying  assumption  that  the  two  different  sizes 
are  not  drastically  different  so  that  the  same  shape  parameters  a  can 
be  used.  It  follows  that: 

£=(£)*  <3-7' 

Therefore,  we  can  evaluate  the  reliability  of  each  element  by 
relating  its  length  or  area  to  the  unit  element.  In  our  approach,  the 
reliability  is  normalized  by  the  smallest  element.  The  smallest  element 
is  assumed  to  be  the  ineffective  size.  In  short,  we  need  to  first  perform 
stress  analysis,  which  is  in  sections,  then  evaluate  the  reliability 
knowing  the  strength  of  the  smallest  element. 
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IV.  REPAIR  METHODOLOGY 

A.      TYPICAL  REPAIR  REQUIREMENT 

The  previous  chapters  discussed  the  rationale  of  adopting  the 
joint  reliability  as  a  single  indicator  of  the  repair  efficiency  and  the 
property  of  a  probabilistic  failure  criterion  which  is  required  to  calcu- 
late the  reliability  of  each  spatial  element  under  a  non-uniform 
complex  state  of  stress.  Furthermore,  we  identify  the  following 
requirements  which  are  necessary  to  establish  the  appropriate  repair 
methodology  for  composite  structures  with  the  goal  of  restoring  the 
structural  integrity: 

1.  The  entire  structure  needs  to  be  considered. 

2.  The  patch  stiffness  through  the  materials  selection  and  the  lay-up 
orientation,  together  with  different  lap  joint  configuration,  need 
to  be  optimized.  The  optimizing  objective  parameter  is  the  joint 
reliability  of  the  structure,  including  the  parent  structure,  the 
joint,  and  the  repair  patch.  The  objective  is  not  to  maximize  the 
reliability  of  the  repair  but  rather  to  achieve  highest  possible  total 
reliability  for  the  entire  structure. 

3.  In  order  to  assess  the  necessity  or  the  effectiveness  of  the  repair, 
a  single  parameter  is  formulated.  We  select  reliability  as  the 
parameter  (refer  to  Chapter  III). 

4.  Using  the  reliability  formulation,  the  parent  structure  reliability  is 
compared  to  the  damaged  structure  reliability  before  repair,  and 
the  repaired  structure  reliability.  As  mentioned  previously,  the 
ideal  repair  restores  the  reliability  of  the  repaired  structure. 

5.  It  is  known  that  conventional  repair  depends  on  the  adhesive 
joint,  which  always  has  no  redundancy  or  poor  redundancy 
(smooth -joint  versus  step-joint).  This  weakness  has  to  be  taken 
into  account.  In  our  approach,  the  adhesive  strength  affects  the 
stress  distribution  and  limits  the  repair  stiffness  (see  joint  con- 
figuration in  appendix).  Thus,  the  joint  strength  is  considered 
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with  the  stiffness  optimization  (lay-up  design)  of  the  repair  seg- 
ment (i.e.,  weak  adhesive  limiting  the  transferring  of  stresses  to 
the  repair  segment  compliant  patch) 

6.  To  simplify  the  calculation,  and  to  reduce  the  number  of  parame- 
ters that  have  to  be  iterated  in  the  same  time,  we  assume  the 
adhesive  reliability  to  be  equal  to  1.  In  other  words,  we  assume 
infinite  joint  reliability. 

7.  The  reliability  of  the  structure  is  the  product  of  the  reliability  of 
the  individual  elements  (see  equation  3.4).  Moreover,  to  achieve 
the  reliability  of  the  element,  it  is  required  that  the  magnitude  of 
the  stress  tensor  not  exceed  the  failure  criterion  (i.e.,  a  spatial 
reliability  function  with  stress  tensor  as  the  random  variable  (see 
Chapter  II). 

B.      CONFIGURATIONS  FOR  REPAIR 

Now,  in  order  to  utilize  the  appropriate  procedure  for  designing  a 
repair,  we  have  to  consider  three  separate  configurations: 

1.  The  parent  structure 

2.  The  damaged  structure 

3.  The  repair 

1.      Parent  Structure  Configuration 

For  the  parent  structure,  a  finite  element  model  must  be  built 
to  represent  the  original  geometry,  the  lamination  configuration,  and 
the  original  material.  The  boundary  conditions  are  determined  by  the 
actual  external  load  and  reactions  (support). 

By  knowing  these  data,  the  resulting  stress  tensor  for  each 
element  can  be  calculated.  Using  the  suitable  failure  criteria,  the 
parent  structure  reliability  (RO)  can  be  evaluated.  The  parent  structure 
reliability  is  the  acceptable  parameter  reference  to  compare  for 
optimizing  the  repair  configuration. 
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2.  Damage  Structure  Configuration 

We  assume  that  all  the  facilities  needed  to  evaluate  the 
damage  area  are  available  (i.e.,  NDT).  Thus,  before  removing  the 
damage  and  preparing  the  area  for  the  bonding  repair,  the  clean-up 
geometry  has  to  be  optimized.  Dependent  on  the  size  of  damage,  the 
spatial  location,  the  repair  capability,  and  the  state  of  load  in  this  area 
(considering  the  fibers'  orientation),  several  configurations  can  be 
evaluated.  Again,  going  through  the  same  procedure  introduced  for  the 
parent  structure,  the  state  of  stress  is  calculated  and  thereby  the 
reliability  for  each  configuration,  Rl,  R2,  R3.  Now  the  configuration 
with  the  largest  reliability  (say  R3)  is  selected. 

3.  Repair  Configuration 

Starting  with  the  R3  configuration,  and  assuming  infinite 
joint  reliability,  the  joint  strength  is  considered  with  the  optimized 
stiffness.  Thus,  only  the  reliability  of  the  parent  structure  (outside  of 
the  repair  zone)  and  the  reliability  of  the  repair  structure  (the  patched 
zone)  are  considered  for  calculating  the  total  repaired  structure  relia- 
bility. To  optimize  the  repair  configuration  in  the  lay-up  design,  one 
must  control  the  repair  stiffness  and  redistribution  of  the  stresses. 
Either  one  type  of  material  can  be  chosen  and  only  the  lamination  can 
vary  (lamina  orientation)  or  more  than  one  material  and  lamination  can 
be  applied. 

C.      FINITE   ELEMENT  APPLICATION 

It  has  been  showTi  that  to  calculate  the  reliability,  we  need  to  ana- 
lyze the  state  of  stress  in  all  spatial  locations—  analytical  boundary  value 
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problems  or  finite  element  methods  (FEM)  can  be  used.  Because  of  the 
complexity  of  the  structure  geometry,  it  is  essential  to  use  FEM  (refer 
to  ADINA  code  in  Appendix  A). 

The  analysis  of  stress  in  a  laminate  of  laminae  is  straightforward. 
For  2-D  problems,  we  are  using  the  laminate  plate  theory  (plane 
stress).  For  3-D  problems,  we  are  using  generalized  calculations  for 
orthotropic  materials.  Assuming  the  laminae  exhibits  linear  elastic 
behavior,  the  stresses  seen  to  be  a  linear  function  of  the  applied  loads. 
That  is,  if  all  laminate  stresses  in  each  laminae  (i.e.,  corresponding  to 
an  element  in  ADINA  code)  are  known,  then  the  stresses  in  each 
laminae  can  be  compared  with  the  lamina  failure  criterion  (see  Chap- 
ter III)  and  uniformly  scaled  to  determine  the  load  at  which  failure 
occurs  and  the  spatial  location. 

In  accordance  with  the  reliability  and  failure  criteria,  all  failure 
criteria  for  laminates  depend  on  the  strength  in  the  principal  material 
direction,  which  likely  does  not  coincide  with  principal  stress  direc- 
tions. Therefore,  the  strength  in  each  lamina  in  a  laminate  must  be 
assessed  in  a  coordinate  system  that  is  likely  different  from  those  of 
its  neighboring  laminae.  (This  coordinate  mismatch  is  one  of  the  com- 
plications that  characterizes  the  determination  of  the  failure  criteria.) 

Hence,  for  the  interpretation  of  stresses  resulting  from  the  FEM 
calculation,  all  the  stress  tensors  have  to  be  transformed  to  the  prin- 
cipal material  direction  per  lamina  (see  Appendix  C). 

Furthermore,  in  order  to  normalize  the  reliability  and  to  make  it 
geometrically  independent,  the  area  of  each  element  has  to  be  related 
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to  an  acceptable  minimum  area.  The  minimum  area  is  derived  from 
the  minimum  size  effect. 
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V.  METHODOLOGY  FORMULATION 

The  object  of  this  chapter  is  to  explore  the  effects  of  the  damage, 
and  finally  the  repair,  on  the  stresses  of  the  entire  structure.  Appro- 
priate simplifying  assumptions  have  been  represented  in  the  the 
repair  methodology  (Chapter  II). 

We  wish  to  capture  the  essence  of  the  underlying  mechanics  and 
physics  of  our  problem.  The  field  equations  in  solid  mechanics  are 
specialized  for  calculating  the  state  of  stress  in  the  repaired  structure. 
Then,  the  acceptable  probabilistic  failure  criteria,  expressed  as  a 
mathematical  function  which  defines  the  stress  level  below  which  the 
structure  is  safe,  is  utilized. 

Therefore,  in  the  context  of  preliminary  sizing  and  design  trade- 
offs of  the  repair,  and  also  for  confirmation  of  output  of  more  accurate 
analysis  carried  out  by  the  computer  code,  we  represent  the  repair 
methodology  by  the  following  formulations. 

The  formulations  are  classified  by  : 

1.  The  physical  space—  a  line,  a  plane,  a  volume 

2.  The    stress    space— one    component,    three    components,    six 
components 

3.  The  spatial  distribution  of  stress  within  the  structure—  homoge- 
neous or  heterogeneous 

4.  The  definition  of  safety— for  our  case,  probabilistic  failure  criteria 
Whereas  in  one-dimensional  theory  (1-D  uniaxial  stress),   each 

scalar  stress  is  mapped  into  a  respective  point  on  a  line  (1-D)  in  the 
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stress  space,  under  planar  combined  stress,  the  magnitude  of  stress 
(three  components)  at  each  spatial  location  of  the  structure  is  mapped 
into  a  respective  point  on  the  3-D  stress  space.  Under  general  com- 
bined stress,  the  magnitude  of  stresses  (six  components)  at  each  spa- 
tial location  of  the  structure  is  mapped  into  a  respective  point  on  the 
6-D  stress  hyperspace. 

Stress  interior  to  domain  bounded  by  the  failure  surface  -»  safe. 

Stress  exterior  to  domain  bounded  by  the  failure  surface  ->  not  safe. 

A.      ONE-DIMENSIONAL    EXAMPLE 

In  order  to  understand  the  methodology  principle,  a  simple  stress 

analysis,  consisting  of  a  scalar  calculation  for  single  component  stress, 

is  shown  in  the  following  example. 

A  long  segment  (shown  in  Figure  5.1)  of  non-uniform  cross-sectional 
area  (A(x))  is  subjected  to  a  uniaxial  tension  load  (P).  Then,  to  cal- 
culate the  reliability: 

1.  The  long  segment  is  divided  to  small  and  unequal  elements, 
because  of  the  usual  complexity  of  the  repair  geometry  (geometry 
mapping)  and  because  of  different  stress  magnitude  distributors 
(i.e.,  the  segment  is  spatial  stress  heterogeneous). 

2.  The  stresses  (o(x))  are  uniaxial  stress  (1-D)  and  must  be  evalu- 
ated in  each  spatial  location.  Thus,  because  of  uniaxial  stress  (one 
component,  1-D),  the  stress  analysis  is  simple  and  represented 
by 

a(x)=Alx7  (5.D 
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Figure  5.1.  Long  Segment,  Non-Uniform  Stresses 


Therefore,  because  of  trie  series  process  assumed  for  composite 
material  structure  (refer  to  Chapter  II),  the  total  reliability  of  the 
structure  (Rt)  is  presented  as  a  function  of  the  stress  and  the 
element  size. 


RT=r[R((^i(x)),Ax1)    1=1,  2  ...n 


(5.2) 


where 

n— the  number  of  elements 

Axj— is  the  ith  element  length 

Furthermore,   using  the  Weibull  distribution  function   (weakest 
link  of  chain),  the  total  reliability  is  expressed  as. 


RT=ri 


exp 


<M 


\J   J 


(5.3) 


3.  To  compare  the  structure  configuration  (i.e.,  for  different  load, 
different  type  of  repair),  and  to  avoid  size  effects  on  the  strength 
of  the  material,   the  reliability  must  be  geometry  independent. 
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Thus,  the  reliability  is  normalized  by  the  smallest  length,  as 
follows. 

Using  the  weakest  link  rule  [Ref.  4],  and  assuming  the  shape 
function  is  constant  (in  composite  material  a  =  5-10),  the  size 
effect  is  represented  by, 


15.4) 


P'-fs: 


where 

5—  the  length  of  the  smallest  element 

p—  the  mean  strength  value  of  the  smallest  element  (evaluated 

by  experiments) 

(3t—  the  mean  strength  value  of  the  ith  element. 

Then,  by  substituting  equation  5.5  into  equation  5.3,  the  total 
reliability  is  obtained  as: 


RT  =  fl 


exp 


o.\    Ax 

T 


(5.6) 


Finally,  a  simulation  needs  to  be  performed  to  demonstrate  the 
probability  of  different  loading  configurations.  This  simulation  was 
carried  out  via  a  statistical  analysis  using  the  spreadsheet  Micro- 
soft Excel  on  a  Macintosh  computer  (see  Reference  9).  There, 
the  strength  is  evaluated  by  the  Weibull  distribution  function 
(weakest  link),  and  if  any  stress  is  larger  than  the  suitable 
strength,  then  the  structure  fails  (1— fail,  0— no  fail). 

Thus,  after  several  runs  of  the  simulation,  we  can  observe  that  the 
location  of  highest  stress  has  the  highest  probability  of  failure  but 
not  a  certainty  of  failure.  In  other  words,  the  failure  is  not  con- 
stant due  to  the  spatial  location—  it  is  changing  according  to  the 
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probabilistic  failure  criteria.  The  resulting  reliability  distribution 
is  compared  so  the  configuration  of  the  structure  loading  can  be 
optimized. 

B.      TWO-DIMENSIONAL    EXAMPLE 

The  first  approach  that  corresponds  to  the  macro-mechanical 
behavior  of  a  composite  laminate  is  the  2-  D  stress  calculation  using 
the  classical  lamination  theory  [Ref.  2].  Thereby,  under  the  same  prin- 
ciple as  1-D  calculations,  2-D  calculations  are  performed,  considering 
three  stress  components: 

{°r°2-06} 

A  typical  analysis  of  a  thin  plate  with  an  elliptical  hole  subjected  to 
tensile  load  in  a  non-principal  direction  is  described.  This  analysis 
models  the  damaged  area  of  a  structure  after  "clean-up"  and  before 
the  bonding  process  of  the  "patch"  repair. 

Again,  going  through  the  same  procedure  as  the  1-D  example  in 
order  to  calculate  the  total  reliability, 

1.  The  physical  space  considered  is  the  space  area  of  the  entire 
plate  (laminate).  The  space  is  divided  into  unequal  areas.  The 
rectangular  rather  than  the  polar  division  is  preferable  because  of 
the  orthogonality  of  the  composite  material,  and  because  it  is 
easier  to  compare  the  structure  reliability  as  a  spreadsheet. 

2.  Assuming  an  unequal  area  for  each  element,  the  stress  analysis  is 
performed. 

Note  that  for  using  reliability  equations,  the  stresses  in  each  spa- 
tial location  must  transform  to  the  principal  material  direction, 
as  explained  in  Chapter  II.  For  this,  stress  transformation  equa- 
tions are  used  [Ref.  2]. 

Now,  having  the  stresses  in  each  spatial  location,  the  same  pro- 
cedure as  in  the  1-D  example  is  utilized.  We  must  remember  that. 
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here,  the  weakest  link  rule  refers  to  each  component  of  stress  in 
each  element  (three  components).  Therefore,  the  weakest  link 
rule  refers  to  each  element  in  the  entire  structure  (plate). 

3.  To  normalize  the  reliability,  the  lengths  in  the  previous  example 
(equation  5.5),  are  replaced  by  areas: 


Pu,= 


VAk.J 


(5.7) 


k— relates  to  the  element  notation. 

i— relates  to  the  stress  component  (i=l,2,6). 

Am—  the  smallest  element  area. 

Ak.i—  the  kth  element  area. 

4.  Therefore,  because  of  the  weakest  link  approach,  there  are  two 
options  to  calculate  the  total  reliability  (Rr)- 

Option  1:  Calculate  the  reliability  of  the  whole  structure  with 
respect  to  each  component  in  each  element  (shear  or  normal 
stress),  then  calculate  the  total  reliability,  as  shown  below. 

The  reliability  of  the  kth  element  due  to  the  ith  stress  compo- 
nent is 


R,    = exp 


^k.^ 


L    V 


K, 


i  =  1.  2,  6 


(5.8) 


Note  that  the  stresses  are  in  contract  notation. 

The  whole  n  element's  reliability  with  respect  to  the  ith  stress 
component  is: 


RT  =flR„ 


k=l 


Finally,  the  total  reliability  is: 


k=  1  ...  n 


(5.9) 
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u 

RT=IlRT.,  i  =  1,  2,  6 


(5.10) 


1=1 


6      n 


6      n 


RT=nnRkl=nriexp 


1=1  k=l 


i=l  k=l  L       V  **,! 


(G 


k.l 


Pi 


i  =  1.  2,  6 
k=  1,  2  ...  n 


(5.11) 


Option  2:  calculate  the  reliability  of  each  element  and  then  cal- 
culate the  total  reliability  as  follows. 

The  reliability  per  element  (Re.Ic)  is  the  product  of  the  stress 
component  reliabilities  (Rk,i_  expressed  in  equation  5.8). 

Thus, 


RE.k=riRk,     i  =  i.  2, 6 


(5.12) 


Then,  the  total  reliability  is, 


RT=nx.„ 

k=l 


(5.13) 


And,  after  substituting  equations  5.10  and  5.14  into  equation 
5.15,  the  total  reliability  is: 


n       6 


RT=nnexp 


k=l  i=l 


°k.^ 


k.ij 


i=  1,  2 6 

k=  1,  2 n         (5.14) 


Although  the  total  reliability  must  be  the  same  for  any  option,  a 
difference  exists  between  the  two  options  and  is  obtained  by  the 
interpretation  of  optimizing  the  repair.  Through  Option  1,  we  can 
visualize  the   effect  of  a  specific  stress  in  a  specific  direction   (i.e., 
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improve  fiber,  if  the  total  reliability—  [Rtj—  fiber  direction],  is  small). 
Or,  through  Option  2,  the  weakest  element  which  has  the  lowest  reli- 
ability (RE.k)  can  be  investigated. 

C.     ANALYSIS  IN  THREE  DIMENSIONS 

The  next  obvious  approach  is  to  extend  the  analysis  to  a  laminate 
in  3-D  physical  space  considering  combined  and  spatial  heterogeneous 
stresses  (six  components).  Obviously,  the  stress  analysis  is  more 
complex  and  cannot  be  solved  "by  hand,"— a  numerical  analysis 
method  must  be  used  (see  application  of  ADINA  code  in  Appendix  A). 
Moreover,  following  the  same  procedure  that  is  used  in  the  1-D  exam- 
ple and  in  the  2-D  example,  the  total  reliability  is  calculated. 

1.  The  state  of  stresses  resulting  from  the  3-D  analysis  (generalized 
orthotropic  laminate— Reference  2),  must  relate  to  the  mean 
strength  known  for  laminae  (from  experiments).  In  other  words, 
the  stress  must  be  calculated  per  element  in  the  lamina.  There- 
fore, unit  volume  will  have  an  identical  thickness  for  each  ele- 
ment. Hence,  the  area  normalization  in  2-D  (see  equation  5.7)  is 
sufficient  also  for  the  3-D  calculation. 

2.  Furthermore,  to  calculate  the  reliability,  instead  of  three  compo- 
nents in  the  2-D  example,  we  consider  six  stress  components: 


For  the  first  option  mentioned  in  the  2-D  example,  equation  5.10 
extends  to: 


Rk-1  =  exp 


a- 


k.l 


i  =  1,  2  ...  6  (5.15) 
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The  whole  n  element  reliability  with  respect  to  the  ith  stress 
remains  the  same  (see  equation  5.9).  Hence,  the  total  reliability 
is: 


6       n 


6      n 


RT=nnRki=nriexp 


i=l  k=l 


1=1  k=l 


k.i 


L    V 


pk. 


y  j 


i  =  1,  2 6 

k=  1,  2 n         (5.16) 


For  the  second  option  mentioned  in  the  2-D  example,  equation 
5.12  extends  to  a  product  of  six  instead  of  three,  as  shown  below. 


RF„  =  flR 


k.i 


1  =  1 


1=  1.2 


(5.17) 


Thus,  similarly  to  the  2-D  example,  the  total  reliability  is: 


n       6 


RT=nriexp- 


k=l  i=l 


k.i 


L  IP,JJ 


i  =  1,  2 6 

k=  1,  2 n         (5.18) 


D.     SUMMARY 

1.  The  1-D  example  is  only  a  simple  presentation  of  the  methodol- 
ogy concept  used  for  calculating  the  total  reliability. 

2.  In  the  2-D  example,  the  whole  structure  analysis  is  simplified 
using  laminate  plate  theory.  This  approach  is  used  in  practice  to 
do  preliminary  calculation  and  sizing,  and  to  check  the  results  of 
2-D  and  especially  3-D  numerical  analysis  carried  out  by  com- 
puter codes  (see  Appendices  A  and  B). 

3.  For  the  3-D  example,  the  state  of  stress  in  each  spatial  location, 
considering  the  generalized  orthotropic  laminate,  is  numerically 
calculated  using  FEM  by  computer  a  code  (i.e.,  ADINA). 

4.  Comparing  2-D  to  3-D  as  the  generalized  orthotropic  laminate 
analysis,  in  2-D  analysis  the  interlaminar  stresses  are  ignored. 
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VI.  CONCLUSIONS 

This  work  has  proposed  a  primary  approach  for  the  designing  of 
composite  material  repair,  using  reliability  as  a  single  parameter  to 
indicate  the  most  effective  repair.  Finite  element  analysis  was  used  to 
calculate  the  state  of  stress  at  any  spatial  location  (non-uniform  and 
combined),  which  in  turn  was  used  to  calculate  the  resultant  reliabil- 
ity. This  methodology  can  be  used  to  assist  maintenance  personnel  in 
the  selection  of  the  optimal  repair  configuration. 

The  Weibull  distribution  function  with  modified  shape  and  scale 
parameters  was  used  for  estimating  the  reliability,  based  on  the  obser- 
vation that  composite  material  failure  is  adequately  represented  by  the 
weakest  link  chain-of-bundle  model.  The  best  selection  of  failure  cri- 
teria has  to  be  confirmed  by  experiment. 

Simulations  for  different  patches  under  a  specific  loading  or  for 
specific  patches  under  different  loading  need  to  be  included  in  the 
future  extension  of  the  repair  optimization  method.  Moreover,  an  ade- 
quate number  of  samplings  (experiments)  needs  to  be  performed  in 
order  to  estimate  the  underlying  Weibull  parameters  and  then  to 
approve  the  appropriate  failure  criteria. 

Only  bonded  repairs  with  infinitely  strong  adhesives  have  been 
considered.  Further  studies  may  be  extended  to  apply  this  approach  to 
consider  adhesives  with  finite  reliability  and  bolted  repairs,  which  are 
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considered   as  3-D  reliability  enhanced   (small  transverse  fibers  are 
included  under  this  category),  and  to  scarf  joint  geometry  approval. 
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APPENDIX  A 
DESCRIPTION   OF  ADINA 

A.      GENERAL  DESCRIPTION 

ADINA  is  a  finite  element  code  for  automatic  dynamic  incremental 
nonlinear  analysis.  The  ADINA  system  is  composed  of  four  main  pro- 
grams: ADINA-IN,  ADINA,  ADINA- PLOT,  and  ADINAT.  Version  2  (Jan. 
1989)  was  used  for  this  thesis.  The  sequence  of  execution  of  these 
programs  is  shown  in  Figure  A-l  [Ref.  6:pp.  1-2]. 

For  our  investigation,  the  ADINA  code  was  used  to  conduct  the 
stress/strain  analysis  (3-D/2-D)  of  an  advance  composite  material 
structure.  Thermal  effects  were  ignored,  so  the  ADINAT  program  (for 
heat-transfer  analysis)  was  not  used. 

The  ADINA-IN  program  generates  the  input  data  for  the  ADINA 
program  and  has  the  ability  to  graphically  check  the  model.  All  or  part 
of  the  model  can  be  drawn  from  any  view  desired,  including  element 
and  nodal  numbering. 

Coordinates  can  be  input  in  a  local  or  global  coordinate  system 
using  cartesian,  cylindrical,  or  spherical  coordinates. 

ADINA  is  used  for  displacement  and  stress/strain  execution,  pro- 
duces the  printout  file  for  displacement  and  stress/strain,  and  also 
produce  the  porthole  file  for  ADINA- PLOT. 
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iOINAT    INPUT 


ADINAT 


Figure  A-l.  Sequence  of  Execution  of  ADINA  Programs 
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ADINA-PLOT  performs  the  post-processing  of  the  output  data 
from  ADINA.  It  also  has  graphics  capability,  allowing  a  view  of  both  the 
deformed  and  undeformed  shapes,  and  can  do  vector  plotting  of 
stresses. 

B.  COMPOSITE   MATERIAL  IMPLEMENTATION 

The  program  defines  the  parameters  (modulus  of  elasticity  (Ey), 
Poisson  ratio  (vy)  for  the  orthotropic  linear  elastic  material  model 
[Ref.  6:pp.  5.5-6).  The  material  defined  is  assigned  an  identifying 
number,  which  can  be  referenced  by  several  or  all  of  the  element 
groups  (i.e.,  parent  structure  elements,  repair  patch  elements).  The 
material  directions  correspond  to  the  global  coordinates  of  the  finite 
element  model  [Ref.  6:pp.  5.5-7). 

In  ADINA,  the  composite  material  model  can  be  used  by  several 
element  types:  2-D  solid  element,  3-D  solid  element,  plate  element, 
and  shell  element  [Ref.  6:p.  5.5-3).  In  this  thesis,  the  2-D  element  and 
3-D  element  type  were  used. 

C.  VERIFICATION 

Part  of  the  establishment  of  the  repair  guideline  is  the  verification 
of  the  finite  element  code.  This  is  done  by  modeling  a  problem  for 
which  the  results  are  known  and  comparing  numerical  with  these 
known  results. 

The  verification  includes  the  geometry  verification,  material  axes 
definition,   and  their  transformation  to  the  global  coordinates,   and 
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compares  the  2-D  (plane  stress)  solution  and  the  3-D  solution  with 
theoretical  solution  done  by  hand. 

A  simply  supported  anisotropic  square  plate,  under  uniform  ten- 
sile load  along  one  edge,  is  considered  as  a  verification  problem  and 
discussed  in  Appendix  B. 
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APPENDIX  B 
VERIFICATION  PROBLEM 

A.  PHYSICAL  PROBLEM 

A  simply  supported  anisotropic  square  plate,  under  uniform  ten- 
sile load  along  one  edge,  is  considered.  The  plate  is  built  of  eight  plies 
and  is  symmetrical,  laminated  once  with  stacking  sequence  [902/752ls 
and  once  with  stacking  sequence  [904]s. 

B.  OBJECTIVE 

To  verify  the  performance  of  the  2-D  solid  plane  stress  element, 
and  then  the  performance  of  the  3-D  solid  element,  when  the  material 
is  anisotropic. 

C.  FINITE   ELEMENT   MODEL 

For  2-D  analysis,  eight-ply  thickness  plate  (laminate)  is  consid- 
ered. The  mesh  consists  of  three  2-D  solid  elements  (nine  nodes).  An 
orthotropic  linear  elastic  material  model  is  used  with  the  principal 
material  axes  a  and  b,  making  angle  beta  with  the  global  coordinate 
axes  X  and  Y,  respectively.  The  laminate  stiffness  is  calculated  by  the 
MIC-MAC  program  [Ref.  7:ch.  7]  from  the  specific  sequence  and 
orientation  of  the  laminae  in  the  laminate. 

For  3-D  analysis,  each  ply  (lamina)  is  considered  separately  across 
the  thickness.  The  mesh  consists  of  12  3-D  solid  elements  (27  nodes). 
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The  same  orthotropic  linear  elastic  material  as  in  the  2-D  model  is 
used.  The  lamina  stiffness  is  used  directly  in  the  finite  element  model. 
For  any  model,  through  ADINA  execution,  a  printout  file  is  cre- 
ated. The  printout  file  generates  a  listing  of  the  displacements  and  the 
stress/strain  for  each  element.  Only  the  stress/strain  results  of  nodes 
number  9,  for  the  2-D  problem,  or  node  number  21,  for  the  3-D 
problem,  are  printed.  Node  9  and  node  21  are  located  at  the  element 
geometric  centroid  and  represent  the  element  mean  values  for  calcu- 
lating the  reliability. 

D.     SOLUTION  RESULTS 

The  solution  results  are  as  expected.  For  the  lay-up  of  [904]s,  the 
stresses  in  the  applied  loads  direction  are  the  same  as  the  applied 
loads.  No  interlaminar  stresses  are  shown  (tend  to  zero).  The  results 
of  2-D  analysis  are  in  good  agreement  with  the  results  of  3-D  analysis. 

For  the  lay-up  of  [902,  752ls  in  3-D  analysis,  the  layers  in  90°  ori- 
entation are  earning  more  stresses  than  the  layers  in  75°  orientation, 
and  the  interlaminar  stresses  are  shown  (they  cannot  be  neglected).  In 
2-D  analysis,  because  of  plane  stress  assumption,  the  interlaminar 
stresses  are  not  shown,  and  the  stresses  have  the  same  value  as 
before— they  are  representing  the  mean  stress. 
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AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PROGRAM  TRANS 2 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

INTEGER  NLA,NEL 

PARAMETER  (NLA=6,PI  =  3.1415927  ) 

PARAMETER  <ROWS=100 ,C0LS=6) 

REALMS  A(R0HS, COLS) ,B(R0WS, COLS) 

REAL  M01,M02,NU12,NU21,EX,EY,EXY 

REAL  THETA(NLA) ,M,N 

REAL  Q11,Q12,Q22,Q66,G12,E1(NLA) fE2(NLA) ,E6(NLA) 

CHARACTER* 4  0  , FNOUT 

A 

WRITE  (5,*)  '  OUTPUT  FILE, NAME:  ' 
READ   (5, ' (A) ' )  FNOUT 

WRITE  (5, *)  'INPUT  MODULUS  &  POISSON  M01 ,M02 ,NU21 ,G12  ?' 
READ  (5,*)  M01,M02,NU21,G12 
NU12  =  M02*NU21  /  M01 

Oil  =  MOl  /  (1-NU12*NU21) 

Q12  =  Q11*NU12 

Q22  =  M02  /  d-NU12*NU21) 

Q66  =  G12 
A 

WRITE  (5, *)  'INPUT  STRAIN  EX,EY,EXY  ?' 

READ  (5, A)  EX,EY,EXY 

OPEN  (UNIT=13,FILE=FN0UT,STATUS='NEW' ) 

WRITE  (13,  A)  'INPUT  :  ' 

WRITE  (5,10)  EX,EY,EXY 

WRITE  (13,10)  EX,EY,EXY 

A 

WRITE  (5,A)  'INPUT  THE  ORIENT.  OF  EA.  ELEM.  IN  DEG .  ?' 
WRITE  (13,  A)  'INPUT:  THE  ORIENT.  OF  EA.  ELEM.  IN  DEG.  ; 
DO  50  1=1, NLA 

WRITE  (5,20)  I 

READ  (5,A)  THETA(I) 

WRITE  (13,25)  I,THETA(I) 

THETA(I)  =  THETA(I)API  /  180.0 
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A 

CONTINUE 

WRITE  (5,A) 'OUTPUT  : ' 
WRITE  (13,  A)  'OUTPUT  :  ' 

, FNOUT 

WRITE  (5,60)  'NLA'  r 'SI' , 

'S2'  ,  'S3'  , 

'S6'  , 

'S5'  , 

'S4' 

WRITE  (13,60)  'NLA' , 'SI' 

,  'S2' , 'S3' 

,  'S6' 

,  'S5' 

,  'S4 

NEL=0 
DO  90  J=l,3 
DO  80  1=1, NLA 
NEL=NEL+1 
STRAINS  TRANSFORMATION  : 
M=C0S(THETA(I) ) 
N=SIN(THETA(I) ) 

Eld)  =  EXAMAA2  +  EYANAA2  +  EXYAMAN 
E2d)  =  EXANAA2  +  EYAMAA2  +  EXYAMAN 
E6(I)  =  -EXA2AMAN  +  EYA2AMAN  +  EXY*(M*A2  -  NAA2) 
STRESSES  CALCULATION  : 

A(NEL,1)  =  Q11AEKI)  +  Q12AE2(I) 
A(NEL,2)  =  Q12AEKI)  +  Q22AE2(I) 
A(NEL,6)  =  Q66AE6(I) 
A(NEL,4)  =  0. 
A(NEL,5)  =  0. 
A(NEL,3)  =  0. 
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BO     CONTINUE 
90    CONTINUE 

DO  100  1=1, NEL 

WRITE  (13,70)  NEL,A(I,1) ,A(I,2) ,A(I,3) ,A(I,6) ,A(I,5) ,A(I,4) 
100   CONTINUE 

A 

CALL  BETA(A,B,NEL) 
WRITE  (5,*)  'INPUT  ALFA' 
READ   (5, *)  ALF 
WRITE  (13,40)  ALF 
CALL  ALFA(A,B,NEL,ALF) 
CALL  RELI(A,B,NEL) 
CALL  ELRE(B,NEL) 

A 

10  FORMAT  ( // ,1X, *STRAINX=  ' ,E11 . 3 ,8X, ' STRAINY=  ',E11.3, 

&        9X, 'STRAINXY=  ',E11.3) 

20  FORMAT  ( IX, 'THETAf ' , 12 , ' ) =  ') 

25  FORMAT  ( IX,  'THETA(  '  ,  12  ,  '  )  =  ',F6.D 

40  FORMAT  (//, IX, ' SHAP  FUNCTION  (ALFA)  =  ' ,F5 . 1/ IX, 40 ( ' - ' ) ) 

60  FORMAT  ( / / , 1X,A10 , 6 ( A7 , 4X)  /  1X,80('-')) 

7  0  FORMAT  ( / , 4X, 16 ,6E11 . 3 ) 

A 

STOP 
END 

AAAAAAAAAAAAAAAAAAAAA,»AAAAAAAA 

SUBROUTINE  BETA ( A, B, NEL) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  (ROWS=100 ,C0LS=6 ) 
REAL*8  AIROWS, COLS) ,B(R0HS, COLS) 
REAL  X(COLS) ,X1C,X2C,X3C 

A 

*  PLY  STRESS  -  STRENGTH, RATIO  CALCULATION  : 

A 

WRITE  (13,10)  'NEL'  ,  'SRI'  ,  'SR2'  ,  ' SR3 '  ,  'SR6'  ,  'SR5'  ,  ' SR4 ' 
DO  9  0  1=1, NEL 

X(l)   =  15.0E4 
X(2)   =  0.4E4 
X(3)   =  X(2) 
X(6)   =  0.68E4 
X(4)   =  X(6) 
X(5)   =  X(6) 
X1C  =  -15.0E4 
X2C  =  -2.46E4 
X3C  =  X2C 

IF  (A(I,1) .LT.O)  X( 1)  =  X1C 
IF  (A(I,2) .LT.O)  X(2)  =  X2C 
IF  (A(I,3) .LT.O)  X(3)  =  X3C 
DO  80  J=l,COLS 

B(I,J)  =  ABS(A(I,J)  /  X( J) ) 
BO    CONTINUE 

WRITE  (13,60)  I,B(I,1) ,B(I,2) ,B(I,3) ,B(I,6) ,B(I,5) ,B(I,4) 
90    CONTINUE 

10    FORMAT  (//,1X,A10,6(A7,4X)  /  1X,80('-')) 
6  0    FORMAT  ( / ,4X, 16 ,6E11 . 3 ) 
RETURN 
END 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  ALFA( A,B,NEL, ALF) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
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PARAMETER  (ROWS=100,COLS=6) 
REAL* 8  A(ROWS, COLS) ,E(R0WS, COLS) 

a 

*  PLY  STRESS  -  STRENGTH, RATIO  RISED  BY  ALFA  CALCULATION  : 

A 

WRITE  (13,10)  'NEL','V1','V2','V3','V6','V5','V4' 

DO  90  1=1, NEL 

DO  80  J=l,COLS 

A(I,J)  =  B(I,J)**ALF 
80    CONTINUE 

WRITE  (13,60)I,A(I,1),A(I,2),A(I,3),A(I,6),A(I,5),A(I,4) 
90    CONTINUE 

10    FORMAT  (//,1X,A10,6(A7,4X)  /  1X,80('-')) 
60    FORMAT  ( / ,4X, 16 ,6E11 . 3 ) 

RETURN 

END 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  RELI ( A,B,NEL) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  (ROWS=100 ,C0LS=6) 
REAL* 8  A (ROWS, COLS) ,B( ROWS, COLS) 

A 

*  PLY  STERSS  TENSOR  RELIABILITY  CALCULATION  (WEIBUL)  : 

A 

WRITE  (13,10)  'NEL' ,'P.l' ,'R2' ,'R3' , 'R6' ,'R5' ,'R4' 

DO  90  1=1, NEL 

DO  80  J=l,COLS 

E'I,J)  =  EXP(-A(I,J)) 
80    CONTINUE 

WRITE  (13,60)  I,B(I,1) ,B(I,2) ,B(I,3) ,B(I,6) ,B(I,5) ,B(I,4) 
90    CONTINUE 

10    FORMAT  ( //,1X,A10,6(A7,4X/  /  1X,80('-')) 
60    FORMAT  i I ,4X,I6,6E11.3) 

RETURN 

UVj 

subroutine  elpe'e,nel) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETEE  (ROWS=100 ,C0LS=6) 
REAL*fl  B ( ROWS, COLS ),ELR( ROW 

A 

^ELEMENTS  RELIABILITY  CALCUL.  £.  STRUCT      ELIABILITY  CALCUL. 

A 

WRITE  (13,10)  'NEL' , 'ELM. PL' 

ETP  =  1.0 

DC  9  0  1*1, NEL 

ELR(I)  =1.0 

DO  80  J=l,COLS 

ELR(I)  =  ELR(I)  *  E!I,J) 
80    CONTINUE 

WRITE  (5,60)  I,ELP(I) 
WRITE  (13,60)  I,ELR(I) 
STP.  =  STB  *  ELP(I) 

9  0    CONTINUE 

WRITE  (5,70)  STP. 
WRITE  (13,70)  STR 

10  FORMAT  (//,1X,2A10  /  1X,25('-')) 
60    FORMAT  ( / ,4X, 16 ,E11 . 3 ) 

70    FORMAT  (//, IX, ' STRUCTURE  RELIABILITY  =  ',E11.3  /1X,40('=')) 


END 
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APPENDIX  C 
POST-PROCESSOR  PROGRAMS 

We  have  the  state  of  stress  in  the  spatial  locations  defined  from 
the  FEM  (ADINA  code).  The  next  steps  for  evaluating  the  reliability- 
are: 

1.  To  normalize  the  size  of  the  element. 

2.  To  perform,  per  element,  the  transformation  of  stresses,  read 
from  the  FEM  output  file,  to  the  lamina  (composite  material) 
principal  directions. 

3.  To  compute  the  reliabilty  based  on  a  specific  reliability  model. 
This  process  is  done  by  two  programs—  CLAREA  and  TRANS3  or 

TRANS2 . 

CLAREA  is  the  program  which  reads  in  the  coordinates  as  well  as 
the  element  area  defining  the  nodes.  It  then  computes  the  element 
area  and  the  smallest  element  area. 

TRANS3  is  the  program  used  for  3-D  analysis.  It  reads  in  the 
stress  components  of  each  element  as  well  as  the  element  area  and 
the  angle  theta.  coresponding  to  the  angle  between  the  global  coordi- 
nate system  and  the  layer  pricipal  coordinate  system.  It  then  performs 
the  transformation  of  stress  to  the  principal  direction.  In  addition, 
this  program  calls  the  subroutine  BETA,  which  in  turn  calls  subroutine 
ALFA,  which  in  turn  calls  subroutine  RELI,  and  which  finally  in  turn 
calls  subroutine  ELRE. 
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TRANS2  is  the  program  used  for  2-D  analysis.  It  reads  in  the 
strain  components  as  well  as  the  modulus  of  elasticity  utilized  in  the 
repair  or  the  parent  structure,  the  angle  theta,  and  the  element  area. 
It  then  calculates  the  stress  tensor  using  the  constitutive  relation. 
From  this  point  onward,  the  program  is  the  same  as  the  TRANS3 
program. 

These  programs  are  illustrated  by  solving  the  verification  exam- 
ple, as  shown  below. 
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2-D   PROBLEM 

(Plane  Stress 
[904U 
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INPUT 


FILE 


a  ADINA-IN 

A 

*    THV2D.IN   ANALYSIS    OF   UNISOTROPIC   PLATE 

A 
A 

FILEUNITS  LIST=8  LOG  =  7  ECHO=7 
CONTROL   PLOTUNIT=CM 
COLORS  BCODE=BLUE 

A 

DATABASE  CREATE 

WORKSTATION  DEVICE=0 

A 

HEAD  'THV2D.IN  ANALYSIS  OF  UNISOTROPIC  PLATE  (  90,90  DEG  )' 

A 

MASTER  IDOF=000111 

PRINTOUT  VOLUME=MAXIMUM  P=STRAINS 

PORTHOLE  FORMATTED=YES  FILE=60 

A 

COORDINATES 
ENTRIES  NODE   Y 

1  20. 

2  -20. 

3  20. 

4  -20. 

5  20. 

6  -20. 

7  20. 

8  -20. 

9  0. 

A 
A 


Z 

20. 

20. 

5. 

5. 

-5. 

-5. 

-20. 

-20. 

-20. 


FIXB  123 

FIXB  13 

A 

MATERIAL 


/  9 
/  7  8 

1  ORTHOTROPIC  EA=181.E05  EB=10.3E05  EC=10.3E05, 

NUAB=0.0159  NUAC=0.0159  NUBC=0.28  GAB=7 


17E05 


T/::isdl:e  zZ7-z~~2   tables 
12  4  3  el1=1  el2=1  nodes=9 
7  el1=1  el2=1  nodes=9 


8 


THICK 

0.1 

0.1 


BET  TABLE 
90    1 
90    1 


EGROUP  1 
GSURFACE 
GSURFACE   5   6 
STRESSTABLE  1  9 
EDATA 
ENTRIES- EL 

1 

2 

A 

LOADS  ELEMENT 

1   2   -3.0E04 

A 

EGROUP  2  TW0D50LID  STRESS2  TABLES 

GSURFACE   3   4   6  5  EL1=1  EL2=1  NODES=9 
STRESSTABLE  1  9 
EDATA 

ENTRIES  EL   THICK  BET  TABLE 

1    0.1  90    1 

A 

A 

VIEW  ID=1  XVIEW=1  YVIEW=0  ZVIEW=0 
EGZONE  NAME=TWODSOLID 
1/2 
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FRAME  HEADING=UPPER  XSF=1.0  YSF=0.5  XFMAX=22.5  YFMAX=17.0 
MESH  ZONE=TWODSOLID  NODES^ll  ELEMENT=2  BCODE=ALL  VIEW=1 
A 
ADINA 

A 

END 
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2-D   PROBLEM 

(Plane  Stress 
[902/752]s) 


*Also  includes  output  of  MIC-MAC  program 
showing  the  laminate  stiffness  Ei0  (page  2, 
column  w,  rows  22-28) 
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ABCDEFG                HI 

1 

MK>MAC/IH-PLANE:{lth«ta/,l]J  .  .  .}S                      ;Ply  mat:  |T3/N52lSI] 

2 

[theta]    j     -82.5;       823=       82.5;     -82.5j  [repeat]  j      h,  •      |    h,E-3     j [Rotate] 

3 

[•/group]!          1.0;          1.0!          Ijol          1.0!      1.0                   8.0!            1.0!      0.00 

4 

I           1           I           1           1           1             1            I 

5 

R/intact   ]        6.08!        6.08;        6.08;        6.08;    R/FPF  j          6.08j    safety         1.50 

6 

R/degradedj         627!         627:         627!         627:    R/LPF   j           627;    R/uK             627 

7 

j    R/lim               4.18!    R/lim*  j       4.18 

8 

{N}/4N/m  or  k/iri  ;  <sigrna>  j  <sig>lim  ;<sig>lim*!  <sig>ult  ;  {E°)lim         E*u/EA1 

9 

1                 O.OOj             O.j             O.j             O.j             0.|           10.5!        0.436; 

10 

2                0.25;         250.1       1045.!       1045.!       1567.;         173.4!        0.997; 

11 

6         |        0.00!              0.!              0.;              O.l              OJ             9.8!        0.579! 

12 

13 

!  {N}  lim  !<eps>E-3!  <eps>1im!<eps>lim^  <eps>u1t  lalph  0^-6  !    beta  o 

1                  OJQof :075J      -3T4T"     -3T4I  "~  -4.71 1"     21794J       0.581! 

14 

15 

2                  1.041         1.44!         6.03;         6.03;         9.04!       -0278;      -0.008! 

16 

6                 0.00]_      0.00!        0.00{        0.00!         0.00;        0.000!       0.000! 

17 

18 

!    T  opr     i  c, moist  j    vol/f           Em       j      Efx              Xrn        j      Xfx       jEm/Em0 

19 

Baseline    |         22.0!       0.005!         0.70;         3.40!          259!           40.0!         2143;       0.30 
[Modified];         22.0;       0.005;         0.70!         3.40|          259;           40.of       2143J       0.30 

20 

21 

Mod/Bsb  |       1.000!       1.000!       LOCK)]       1.000;       1 .000!        1.000;       1.000;     1.000 
Mod-Bsln  |          0.0;      O.OOOJ Hot/Vet  ;        3.40;         259;          40.0;        2143! 

22 

23 

/Q-iso     ;  at  limit  j    at  ult                     !                                 | 

24 

stiffness  j        2.30;         2.30; 

25 

strength    |        »REF!j        «REF!J 

26 

27 

Ply  data  linked  to  Ply  Data  File :  ! 

28 

T3/N52[SII          181;         l6il         028!         7.17i           3.4J            122;           160P 

29 

1500]        1500!           40;         246;            68;           1.2!              22;       0.005; 

30 

-0.5;          125!           0.7!           1.6!       0.516!           0.5!             02!            0.9! 

31 

0.02;         22.5!              0;           0.6j       0.316;       0.004!         0.004;         2000; 

32 

69.7!         325;      0.916!         1.56;             0!             0;               Oj              Oj 

33 

J::*::                          :                        : 

34 

j                        •                        j                        |                        j                        |                            :                          : 

35 

j                        :                        !                        :                         s                        :                            j                          j 

36 

:•!•[•                            j                          ! 

37 

~ • J 1 -j [ } j- J j 

38 

39 

j                 |                 j                 I                 j                 !                                      | 

40 

!                                 \                                 \                   { 
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RSTUVVX                   Y 

1 

INTACT  LAMINATE  MODULUS  MODULE  -  elastic  and  hygrothermal  constants 

2 

3 

[Angle]    !   theta/1    j   theta/2   j   theta/3   |   theta/4   i 

4 

[theta]    |         -82.5;           82.5:           82.5;         -82.5:    [REPTJ+   | 

5 

r*Zgr&LJ         i  .oi         1.0}         loi         i.q|      i 

6 

2X/ad    |      -3E+00J        3E+00J        3E+00:      -3E+00I  h+/r+,*  j 

7 

4X,rad    j      -6E+00!        6E+00;        6E+00!       -6E+00!         4 

8 

:                           |                           !                            j                            :                           j                            : 

9 

Topr*    1           1.00!           0.75;           0.50J           0251 

10 

Bottz*               0.75:           0.50:           0.25;           0.00: 

11 

dei(z*)    {           025;           0.25!           0.25!           6.25;        h+ 

12 

1E-03! 

13 

14 

Stiff      j     [Q]/1           [Q]/2     j     [Q]/3           [Q]/4             [A]             [A*] 

15 

11                 10.63!         10.63!         10.63!         10.6-3!           6.01 !        8E-03; 

16 

22       !       176.25;       176251       176.25;       17625!          0.18;        IE-Oil 

17 

21  =  12                5.54J           5.54;           5.54;           5.54;           O.Olf       4E-03; 

1?_ 
19 

20 

_  66  _  J          9.81; 9.81J       _9iM}_         9.8jj 0.01;        7E-Q3j 

61  =  16    1         -124!           124;         "TSi         -1.24:          0.66!        3E-04; 
62=26            -20.95;         26.95!         20.95;       -2"6.95:           6.00;        5E-03J 

21 

|A|                2E-05I 

22 

Compl      JlaJ/n/GNJ                  j[a*]                                     Ei  0  > [ 

11                  95.67:                             1E-01!                             10.45: 

23 

24 

22                  5.77!                          6E-03;                  j       173.36; 
21  =  12    [        -3  .Oil                         -3E-03!                              0.031 

25 

26 

66        |       101.93;                           1E-01;                              9.81 1 

27 

61  =  16     ;           0.00!                           OE+00!                              O.Oo! 

28 

62=26     |           0.00;                           OE+00;                              0.00!                          E,GPa 

29 

ill                                                                           |      X,MPa 
Nonnwchanical  stress(Pa)  and  strain                                  j    V*/iA                               rho 

30 

31 

V*/1A     1       -2E-01!       -2E-01 !       -2E-01J       -2E-01I      -1E+00!                       R=X/|sioJ 

32 

V*/3A          -6E-02;        6E-02J        6E-02;      -6E-02J       OE+00;                       relrho 

33 

p*n  /T         p*n  /c     !  sig'n  /T   j   sig'n  /c    j    alpha  0    j     beta  0           eps/iso 

34 

1                  2E-04!        4E+00:        2E-04!        6E+00:       21.7941         0.581  i     rel  stiff 

35 

2               -8E-05I      -2E+00!        7E-05j        2E+00;       -0278;       -0. 008  j  spec  stiff 

36 

6             sig'n  0        eps'n  0            OE+OOj        OE+OOj         0.000;         O.OOOj      spec  R 

37 

1  8E-03!        7E-04:      e/x             -2E-06:        0.001!                        nu/iso 

2  2E-03;       -1E-05;       e/y       1        8E-04|       -0.0011                         fn(nu) 

38 

39 

6                  OE+00!        OE+00;       e/s       |        OE+00;         O.OOOj 

40 

j                          j                          :                          !                          !                          1                          j 
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ABCDEFG                 HI 

1 

MIC-MAC/IN-PLANE:{[th*ta/»],  .  .  .}S                      [Ply  mat:  jT3/N52(5l] 

2 

[theta]         -82.5;       82.5;       82.5;     -82.5!  [repeat]  j      h,  »           h,E-3     jlRotate] 

3 

MVgroupl'          1.0!          1 .0!          1.0!          I.Oj     1.0                  8.0;            1.0;   -7.50 

4 

5 

R/intact   j        2.86;        2.32;        2.32;        2.86!    R/FPF  ]           2.32!    safety          1.50 

6 

R /degraded;         321;         3.61!         3.61;         321!    R/LPF   j           321!    R/uU             321 

7 

R/lim    |           2.14!    R/Hm*  !       2.14 

8 

{N},MN/mor  k/in  j  <sigma>  I  <sig>lim  !<sig>1im*;  <sig>ult  |   {E°}lim         EWE'l 

9 

1                0.00!            oj            O.j            Oj            0.;           10.6;       0.43ej 

10 

2                 0.25;         250.;         535.;         535.;         802.!         138.7!        0.851; 

11 

6                0.00!             OJ             O.j             OJ             O.j             9.8!        0.569J 

12 

13 

!  {N}  lim  !<eps>E-3  j  <eps>lim!<eps>lim*  <eps>ult  ;a1ph  o,E-6  j    beta  o 

14 

1                   0.00!       -0.73!       -1.56;       -1.56;       -2.34;       21.417;        0.571; 

15 

2                  0.53;         1.801         3.85!         3.85;         5.78;         0.098;        0.002; 

16 

6                 0.00!       -2.74;       -5.85!       -5.85]       -8.78!       -5.713;      -0.152; 

17 

18 

T  opr     !  c,moist  j    Yol/'f           Em            Efx             Xm              Xfx      ;Em/Em° 

19 

Baseline   |        22.0!      0.005;         0.70!         3.40!          259!           40.0;         2143!       0.30 

20 

[Modified];         22.0;       0.005!         0.70;         3.40;          259;           40.0!         2143!       0.30 

21 

Mod/Bsln!       1.000]       1.000;       1.000;       1.000;       1.000;         1.000;        1.000;     1.000 

22 

Mod-Bsln  !           0.0;       0.000!  Hot/Vet  ;         3.40;          259;           40.0;         2143! 

23 

/Q-iso     !  at  limit  !    at  ult 

24 

stiffness  ;         1.36!         0.96; 

25 

strength    j        «REF!!       *REF!; 

26 

;                 i                 I                 j                                   ;                   j                  ; 

27 

Ply  data  linked  to  Ply  Data  File :  j 

28 

T3/N52[Sl|           181!          10.3;         0.28;         7.17!            3.4;             122;            1  SO; 

29 

1500!        1500;           40;         246~!            68;           12;              22f       0.005^ 

30 

-0.5]          125;           0.7;           1.6;       0.516!           0.5!             02!            0.9! 

31 

0.02;         22.5;              0;           0.6!       0.316;       0.004!         0.004  =         2000= 

32 

69.7;         325!      0.916!         1.56!              0!              0:                0!               0! 

33 

i 

34 

35 

1 

i 

1 

36 

37 

38 

39 

40 
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R                 S                 T                 U                 V                 V                 X 

Y 

1 

INTACT  LAMINATE  MODULUS  MODULE  -  elastic  and  hygrothermal  constants 

2 

|                        |                        :                        j                        :                        • 

3 

[Angle]    !   theta/i    !  theta/2   !   theta/3  1  theta/4   I 

4 

[theta]               90.0!           90.0!           75.0!           75.0!    [REPT]+   ! 

5 

IVgrpj  j            1.0:            (.Oi            1.61            1.0]        1 

6 

2X,rad            3E+00!        3E+00:        3E+00:        3E+00;  »r»7r+,*  | 

7 

4X,rad             6E+00!        6E+00!        5E+00J        5E+00;         4 

8 

I                        :                         :                        :                                                 !                         : 

9 

Topr*                1 .00?           0.75;           0.50!           025; 

10 

Bottr*               0.75;           0.50:           025;           0.00: 

11 

del(z*)    !          025|          025;          025!          0.25!       h+ 

12 

1E-03": 

13 

14 

Stiff            [Q]/1      |     [Ql/2           {01/3           [Q]/4             [A]              [A*] 

15 

11                  10.35!          10.35;          11.98;          11.98!           0.01  j         9E-03; 

16 

22              181. 81  j       181.81!       160.47;       160.47!          0.17J        IE-Oil 

17 

21  =  12                2.90!           2.90;         12.751         12.75;           0.01  j         7E-03; 

18 

66                   7.17;           7.17:         17.03;         17.03:           0.01!         1E-02: 

19 

61  =  16                0.00!           0.00!           4.36J           4.36!           0.00;        2E-03! 

20 

62=26                6.00!           6.00:         38.50;         38.50!           6.02!        2E-02! 

21 

|A|                2E-05! 

22 

Compl     j  [aj/n/GN  !                  !(a*]                                   Eio       | 

23 

11                  94.04!                            9E-02J                             10.63: 

24 

22                  7.21;                          7E-03J                  |       138.75J 

25 

21  =  12              -2.91!                         -3E-03!                             0.03: 

26 

66               102.30!                            1E-01!                             9.78; 

27 

61=16    !       -12.32!                        -1E-02!                           -0.13! 

28 

62=26            -10.94;                   1       -1E-02!                             -1.52! 

EvGPa 

29 

j                           !                            :                            :                            j                            :                            ! 

XJiPa 

30 

Nonmechanital  stress(Pa)  and  strain                                  |    V*/iA 

rho 

31 

V*/1A     j       -3E-01:       -3E-01!       -2E-01  j       -2E-01!       -9E-01 j 

R=X/|sig| 

32 

h  V*/3A            3E-17;        3E-17j        1E-01]         lE-6lj        3E-01; 

rel rho 

33 

pAn  /T         p'n  /c     I  sig'n  /T   I   sigAn  /c    !    alpha  0    j     beta  0 

eps/iso 

34 

1                  2E-04;        4E+00!         2E-04!        6E+00:       21.417;         0.571; 

rel  stiff 

35 

2                -8E-05!      -2E+00;        7E-05J        2E+00!         0.098!         0.002! spec  stiff 

36 

6         !    sigAno        ep'no           -2E-05:       -6E-01!       -5.713]       -0.152! 

spec  R 

37 

1                 8E-03!        7E-04;      e/x             -2E-06J        0.001! 

nu/iso 

38 

2                 2E-03J        6E-07:      e/y       |        8E-04|       -0.001! 

fn(nu) 

39 

6                -7E-04:       -2E-04!       e/s                OE+OO;         O.OOO! 

40 

1        1        \        \        \        1        i 
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ADINA-IN 


INPUT 


FILE 


A 
A 

*    THV2D.IN   ANALYSIS    OF   UNISOTROPIC    PLATE 

A 
A 

FILEUNITS  LIST=8  LOG=7  ECHO =7 
CONTROL   PLOTUNIT=CM 
COLORS  BCODE=BLUE 

A 

DATABASE  CREATE 
WORKSTATION  DEVICES 

A 

HEAD  'THV2D.IN  ANALYSIS  OF  UNISOTROPIC  PLATE  (  90,75  DEG  )' 

A 

MASTER  IDOF=000111 

PRINTOUT  VOLUME=MAXIMUM   P=STRAINS 

PORTHOLE  FORMATTED=YES  FILE=60 

A 

COORDINATES 
ENTRIES  NODE 

1 

2 

3 

4 

5 

6 

7 


Y 

20. 
-20. 

20. 
-20. 

20. 
-20. 

20. 

-20. 

0. 


z 

20. 

20. 

5. 

5. 

-5. 

-5. 

-20. 

-20." 

-20. 


A 
A 

FIXB  123 
FIXB  13 

A 

MATERIAL 


/  9 

/  7  8 

1  ORTHOTROPIC  EA=173 . 36E05  EB=10.45E05  EC=10.3E05, 

NUAB=0.03  NUAC=0.03  NUBC=0.28  GAB=9.B1E05 


3  EL1=1  EL2=1  NODES=9 
7  EL1=1  EL2=1  NODES=9 


EGROUP  1  TWODSOLID  STRESS2  TABLES 

GSURFACE   1   2 

GSURFACE   5   6 

STRESSTABLE  1  9 

EDATA 

ENTRIES  EL   THICK    BET  TABLE 

1  0.1      82.5    1 

2  0.1      82.5    1 

A 

LOADS  ELEMENT 

1   2   -3.0E04 

A 

EGROUP  2  TWODSOLID  STRESS2  TABLES 


5  EL1=1  EL2=1  NODES=9 


GSURFACE   3   4 
STRESSTABLE  1  9 
EDATA 

ENTRIES  EL   THICK    BET  TABLE 
1    0.1      82.5    1 

A 

A 

VIEW  ID=1'XVIEW=1  YVIEW=0  ZVIEW=0 
EGZONE  NAME=TWODSOLID 
1/2 
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FRAME  HEADING=UPPER   X5F=1.0   YSF=0.5   XFMAX=22.5    YFMAX=17.0 
MESH   ZONE=TWODSOLID   N0DES=11    ELEMENT=2    BCODE=ALL   VIEW=1 

A 

ADINA 

A 

END 


59 


to 

lO 

W 
H 

CO 


U 
►J 
O 


o 
o 

o 

en 

i 


O 

to 
a 


2  >- 


EO 
in 

CTl 

o 

<n 

o 
l 


o 


13 


u 

l-H 
Oi 

o 


a,  i-i 


in 
o 
+ 
W 
o 
o 
o 


o 

CO 


2; 

£3 


El, 

O 


CO 


D 
O 

a 
o 

H 
EO 
EO 

U 

a 
o 

El, 


to   n 


W  EO 

(N) 

Tf 

r^ 

CT- 

^r; 

r-o 

cs 

n 

o 

l 

o 
i 

en 

(N 

o 

o 

+ 

i 

EO  EO 

o 

■**• 

O  U5 

o 

H 

ro 

r-J 

cn 

ro 

r—t 

o 

EO  U 

03 

cc 

>* 

^J" 

cn 

n 

r^ 

DO 

10 

O 

n 
H 
< 

U 

< 

u 


O  ci 
O  O 

+  I 
EO  EO 

O  CD 

o  r- 
o  cn 
o  a> 

o  o 


60 


to 
(J 


o 

o 

o 

o 

o 

o 

1 

en 
I 

to  2 

cs 

o 

CO  < 

<-H 

o 

CO  >J 
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3-D   PROBLEM 

[904]s 
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*  ADINA-IN     iftPUT     FILE 

A 

*  THV3D.IN  EIGHT  SYMMETRIC  LAYER  USING  3-D. 
A 

FILEUNITS  LIST=8  L0G  =  7  ECH0=7 
CONTROL  PLOTUNIT=CM 
COLORS  BCODE=BLUE 
A 

DATABASE  CREATE 
WORKSTATION  DEVICE=0 

A 

HEADING  '  THV3D.IN;  ***EIGHT  LAYERS  SOLUTION   90,90  DEG  aaa' 
a 

MASTER  IDOF=000111 

PRINTOUT  VOLUME=MAXIMUM  IPD=1  IPRIC=0  P=STRAINS 

PORTHOLE  FORMATTED=YES  FILE=60 

A 

COORDINATES  /  ENTRIES  NODE      X        Y   .      Z 

1  -20.     -20.        0.1 

2  20.     -20.        0.1 

3  -20.      -5.        0.1 

4  20.      -5.        0.1 

5  -20.     -20.        0. 

6  20.     -20.        0. 

7  -20.      -5.        0. 

8  20.      -5.        0. 

9  -20.-      5.        0.1 

10  20.       5.        0.1 

11  -20.      20.        0.1 

12  20.      20.        0.1 

13  -20.       5.        0. 

14  20.       5.        0. 

15  -20.      20.        0. 

16  20.      20.        0. 

17  0.      20.        0.1 

18  0.      20.        0. 

101  5.       0.        0. 

102  0.      10.        0. 

103  5.      10.        0. 

104  15.       2.68      0. 

105  7.68    10.        0. 

106  15.      10.        0. 

107  15.     -10.        0. 
*============== ====================================== 

*NOTE  THE  MAXES  MEANS  :  1=90DEG  2=15  3=75  4=45  5=-45 
*===============================================«==== 

MATERIAL  1  ORTHOTROPIC  181. E05  10.3E05  10.3E05  0.0159  0.0159  0.28, 

GAB=7.17E05  7.17E05  7.17E05 

A 

EGROUP    1    THREEDSOLID   MATERIALS    TABLES 

GVOLUME    12435687   EL1=1    EL2=1    EL3=4   NODES=27 

GVOLUME  9  10  12  11  13  14  16  15  EL1=1  EL2=1  EL3=4  NODES=27 

AGVOLUME    12435687    EL1=1   EL2=1   EL3=4   N0DES=8 

AGVOLUME  9  10  12  11  13  14  16  15  EL1=1  EL2=1  EL3=4  N0DES=8 

GSURFACE  11  12  16  15  EL1=1  EL2=4  N0=9 

LINE  STRAIGHT  17  18  EL=4  M=l  NC=ALL 

AXES -ORTHOTROPIC  1  NODI=101  N0DJ=103  NODK=102 

AXES-ORTHOTROPIC  2  NODI=101  NODJ=104  NODK=102 

AXES-ORTHOTROPIC  3  NODI=101  NODJ=105  NODK=102 

AXES-ORTHOTROPIC  4  NODI=101  NODJ=106  NODK=102 
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AXES-ORTHOTROPIC  5  NODI  =  101  NODJ=107  NODK=102 
*STRESSTABLE  112345678  21  26  27 
STRESSTABLE  1   21 
EDATA  /  ENTRIES  EL  TABLE  MAXES 


LOADS  ELEMENT 


TO 


1 

1 

1 

2 

1 

1 

3 

1 

1 

4 

1 

1 

5 

1 

1 

6 

1 

1 

7 

1 

1 

8 

1 

1 

2 

-3. 

0E04 

■3.0E04 


FIXB  123  LINES  /  17  18 

FIXB  23  SURFACES  /   11  12  16  15 

*FIXB  23  LINES  /  12  16  /  16  11  /  11  15  /  15  16  . 

A 
A 

EGROUP  2  THREEDSOLID  MATERIALS  TABLES 

GVOLUME  3  4  10  9  7  8  14  13  EL1=1  EL2=1  EL3=4  NODES=27 
*GVOLUME  3  4  10  9  7  8  14  13  EL1  =  1  EL2=1  EL3=4  N0DES=8 
AXES-ORTHOTROPIC  1  NODI=101  NODJ=103  NODK=102 


AXES-ORTHOTROPIC  2 

AXES-ORTHOTROPIC  3 

AXES-ORTHOTROPIC  4 

AXES-ORTHOTROPIC  5 

^ STRESSTABLE  112 

STRESSTABLE  1   21 

EDATA  /  ENTRIES  EL  TABLE  MAXES 


NODI=101  NODJ=104  N0DK=102 

NODI=101  NODJ=105  NODK=102 

NODI=101  N0DJ=106  N0DK=102 

NODI=101  NODJ=107  NODK=102 

3  4  5  6  7  8  21  26  27 


A 

A 

EGZONE  NAME=THREEDSOLID  /  1  /  2 

FRAME  HEADING=UPPER  XSF=1.0  YSF=0.5  XFMAX=22.5  YFMAX=17.0 

MESH  ZONE=THREEDSOLID  NODES=01  ELEMENT=1  HIDDEN =DASHED  BCODE-ALL 

A 
ADINA 

A 

END 
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a  ADINA-IN  I'NPUT  FILE 

A 

*  THV3D.IN  EIGHT  SYMMETRIC  LAYER  USING  3-D. 

A 

FILEUNITS  LIST=8  L0G  =  7  ECH0=7 
CONTROL  PLOTUNIT=CM 
COLORS  BCODE=BLUE 

A 

DATABASE  CREATE 
WORKSTATION  DEVICE=0 

A 

HEADING  '  THV3D.IN;  AAAEIGHT  LAYERS  SOLUTION   90,75  DEG  *aa ' 

A 

MASTER  IDOF=000111 

PRINTOUT  VOLUME=MAXIMUM  IPD=1  IPRIC=0  P=STRAINS 

PORTHOLE  FORMATTED=YES  FILE=60 

A 

COORDINATES  /  ENTRIES  NODE      X         Y  Z 

1  -20.     -20.        0.1 

2  20.     -20.        0.1 

3  -20.      -5.        0.1 

4  20.      -5.        0.1 

5  -20.     -20.        0. 

6  20.     -20.        0. 

7  -20.      -5.        0. 

8  20.      -5.        0. 

9  -20.       5.        0.1 

10  20.       5.        0.1 

11  -20.      20.        0.1 

12  20.      20.        0.1 

13  -20.       5.        0. 

14  20.       5.        0. 

15  -20.      20.        0. 

16  20.      20.        0. 

17  0.      20.        0.1 
IB  0.      20.        0. 

101  5.       0.        0. 

102  0.      10.        0. 

103  5.      10.        0. 

104  15.       2.68      0. 

105  7.68    10.        0. 

106  15.      10.        0. 

107  15.     -10.        0. 

A======================================r============= 

*NOTE  THE  MAXES  MEANS  :  1=90DEG  2=15  3=75  4=45  5=-45 
A===================================================== 

MATERIAL  1  ORTHOTROPIC  181. E05  10.3E05  10.3E05  0.0159  0.0159  0.28, 

GAB=7.17E05  7.17E05  7.17E05 

A 

EGROUP  1  THREEDSOLID  MATERIALS  TABLES 

GVOLUME  12435687  EL1=1  EL2=1  EL3=4  N0DES=27 
GVOLUME  9  10  12  11  13  14  16  15  EL1=1  EL2=1  EL3=4  NODES=27 
AGVOLUME  12435687  EL1=1  EL2=1  EL3=4  N0DES=8 
^GVOLUME  9  10  12  11  13  14  16  15  EL1=1  EL2=1  EL3=4  N0DES=8 
GSURFACE  11  12  16  15  EL1=1  EL2=4  N0=9 
LINE  STRAIGHT  17  18  EL=4  M=l  NC=ALL 
AXES-ORTHOTROPIC  1  NODI=101  NODJ=103  NODK=102 
AXES-ORTHOTROPIC  2  NODI=101  NODJ=104  NODK=102 
AXES-ORTHOTROPIC  3  NODI=101  NODJ=105  NODK=102 
AXES-ORTHOTROPIC  4  NODI=101  NODJ=106  NODK=102 
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AXES-ORTHOTROPIC    5   NODI=101    NODJ=107   NODK=102 
* STRESSTABLE    112345678    21    26    27 
STRESSTABLE    1      21 
EDATA    /    ENTRIES   EL   TABLE  MAXES 
111 

2  13 

3  1      3 

4  11 

5  11 

6  13 


A 

LOADS  ELEMENT 
TO 


7  13 

8  11 


3.0E04 
3.0E04 


A 

FIXB  123  LINES  /  17  18 

FIXB  23  SURFACES  /   11  12  16  15 

AFIXB  23  LINES  /  12  16  /  16  11  /  11  15  /  15  16 

A 
A 

EGROUP  2  THREEDSOLID  MATERIALS  TABLES 

GVOLUME  3   4  10   9   7   8  14  13  EL1=1  EL2=1  EL3  =  4  N0DES=27 
AGVOLUME  3   4  10   9   7   8  14  13  EL1=1  EL2=1  EL3=4  NODES=8 
AXES-ORTHOTROPIC  1  NODI=101  NODJ=103  N0DK=102 
AXES-ORTHOTROPIC  2  NODI=101  NODJ=104  NODK=102 
AXES-ORTHOTROPIC  3  NODI=101  NODJ=105  N0DK=102 
AXES-ORTHOTROPIC  4  NODI=101  N0DJ=106  NODK=102 
AXES-ORTHOTROPIC  5  N0DI=101  NODJ=107  NODK=102 
ASTRESSTABLE  112345678  21  26  27 
STRESSTABLE  1   21 
EDATA  /  ENTRIES  EL  TABLE  MAXES 
111 

2  13 

3  13 

4  11 

A 

A 

EGZONE  NAME=THREEDSOLID  /  1  /  2 

FRAME  HEADING=UPPER  XSF=1.0  YSF=0.5  XFMAX=22.5  YFMAX=17.0 

MESH  ZONE^THREEDSOLID  NODES=01  ELEMENT=1  HIDDEN=DASHED  BCODE=ALL 

A 

ADINA 

A 

END 
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A  ADINA-IN  I'NPUT  FILE 

A 

a  THV3D.IN  EIGHT  SYMMETRIC  LAYER  USING  3-D. 

A 

FILEUNITS  LIST=8  L0G  =  7  ECH0=7 
CONTROL  PLOTUNIT=CM 
COLORS  BCODE=BLUE 

A 

DATABASE  CREATE 
WORKSTATION  DEVICE=0 

A 

HEADING  '  THV3D.IN;  *AA£IGHT  LAYERS  SOLUTION   90,75  DEG  aaa- 

A 

MASTER  IDOF=000111 

PRINTOUT  VOLUME=MAXIMUM  IPD=1  IPRIC=0  P=STRAINS 

PORTHOLE  FORMATTED=YES  FILE=60 

A 

COORDINATES  /  ENTRIES  NODE      X        Y         Z 

1  -20.     -20.        0.1E2 

2  20.     -20.        0.1E2 

3  -20.      -5.        0.1E2 

4  20.      -5.   -    0.1E2 

5  -20.     -20.        0. 

6  20.     -20.        0. 

7  -20.      -5.        0. 

8  20.      -5.        0. 

9  -20.       5.        0.1E2 

10  20.       5.        0.1E2 

11  -20.      20.        0.1E2 

12  20.      20.        0.1E2 

13  -20.       5.        0. 

14  20.       5.        0. 

15  -20.      20.        0. 

16  20.      20.        0. 

17  0.      20.        0.1E2 
ie  0.      20.       0. 

101  5.       0.        0. 

102  0.      10.        0. 

103  5.      10.        0. 

104  15.       2.68      0. 

105  7.68    10.        0. 

106  15.      10.        0. 

107  15.     -10.        0. 

A  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  r:  =  =  r:  =  =  r:r:  =  =  =  =  =  =:  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  = 

ANOTE  THE  MAXES  MEANS  :  1=90DEG  2=15  3=75  4=45  5=-45 

MATERIAL  1  ORTHOTROPIC  181. E05  10.3E05  10.3E05  0.0159  0.0159  0.28, 

GAB=7.17E05  7.17E05  7.17E05 

A 

EGROUP  1  THREEDSOLID  MATERIALS  TABLES 

GVOLUME  12435687  EL1=1  EL2=1  EL3=4  NODES=27 

GVOLUME  9  10  12  11  13  14  16  15  EL1=1  EL2=1  EL3=4  NODES=27 

AGVOLUME  12435687  EL1=1  EL2=1  EL3=4  N0DES=8 

AGVOLUME  9  10  12  11  13  14  16  15  EL1=1  EL2=1  EL3=4  N0DES=8 

GSURFACE  11  12  16  15  EL1=1  EL2=4  NO=9 

LINE  STRAIGHT  17  IB  EL=4  M=l  NC=ALL 

AXES-ORTHOTROPIC  1  NODI=101  NODJ=103  NODK=102 

AXES- ORTHOTROPIC  2  NODI=101  NODJ=104  NODK=102 

AXES-ORTHOTROFIC  3  NODI=101  NODJ=105  N0DK=102 

AXES-ORTHOTROPIC  4  NODI=101  NODJ=106  NODK=102 
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AXES-ORTHOTROPIC  5  NODI=101  NODJ=107  N0DK=102 
*STRESSTABLE  112345678  21  26  27 
STRES5TABLE  1   21 
EDATA  /  ENTRIES  EL  TABLE  MAXES 

1  1      1 

2  13 

3  13 

4  11 

5  1      1 

6  13 

7  13 

8  11 


A 

LOADS  ELEMENT 

TO 


•3.0E04 
■3.0E04 


A 

FIXB  123  LINES  /  17  18 

FIXB  23  SURFACES  /   11  12  16  15 

*FIXB  23  LINES  /  12  16  /  16  11  /  11  15  /  15  16. 

A 
A 

EGROUP  2  THREEDSOLID  MATERIALS  TABLES 

GVOLUME  3   4  10   9   7   8  14  13  EL1=1  EL2  =  1  EL3=4  NODES=27 

AGVOLUME  3   4  10   9   7   8  14  13  EL1=1  EL2=1  EL3=4  N0DES=8 

AXES-ORTHOTROPIC  1  NODI=101  NODJ=103  N0DK=102 

AXES-ORTHOTROPIC  2  NODI=101  N0DJ=104  NODK=102 

AXES-ORTHOTROPIC  3  NODI=101  N0DJ=105  NODK=102 

AXES-ORTHOTROPIC  4  NODI=101  NODJ=106  NODK=102 

AXES-ORTHOTROPIC  5  NODI=101  NODJ=107  N0DK=102 

*STRESSTABLE    112345678    21    26    27 

STRESSTABLE  1   21 

EDATA  /  ENTRIES  EL  TABLE  MAXES 

1  1      1 

2  1      3 

3  1      3 

4  1      1 

A 
A 

EGZONE  NAME=THREEDS0LID  /  1  /  2 

FRAME  HEADING=UPPER  XSF=1.0  YSF=0.5  XFMAX=22.5  YFMAX=17.0 

MESH  ZONE=THREEDSOLID  NODES=01  ELEMENT=1  HIDDEN=DASHED  BCODE=ALL 

A 

ADINA 

A 

END 
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AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PROGRAM  CLAREA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

C 

C      THIS  PROGRAM  WHICH  READS  THE  NODAL  POINT  COORDINATE,  AS  WELL  READS 

C      THE  NODES  DEFINING  THE  ELEMENT  AREA,  AND  READS  THE  ANGLE  OF  ELEMENT 

C     ORIENTATION   FROM  FILES  CREATED  FROM  THE  MAIN  ADINA  OUTPUT  FILE. 

C      IN  ADDITION  THIS  PROGRAM  CALCULATES  THE  MINIMUM  AREA. 

C      BEFORE  RUNING  THE  PROGRAM  VERIFY  THE  #  OF  ELEMENT ( NEL ) ,  THE  #OF  NODES 

C      (NNOD). 

INTEGER     IEL, NEL, NNOD, INOD 

PARAMETER   ( NEL=12 ,NN0D=196 ) 

INTEGER     INODE(NEL,4) ,N0DE(4) 

REAL       C00R(NN0D,20) , AREA 1 rAREA2 , AREA ( NEL) 

REAL        B1,B2,C1,C2,BB1,BB2,CC1,CC2 

REAL        X ( 4 ) , Y ( 4 ) 

CHARACTER* 10  FNAME1 ,FNAME2 , FNOUT 


WRITE  (5, *) 
WRITE  (5, A) 
READ  (5, ' (A 
OPEN  (UNIT= 
WRITE  (5, *) 
WRITE  (3,*) 
WRITE  (5,*) 


NAMES  FROM 
DATA  FN  ?' 


'ENTER  FILES 
'NODAL  POINT 

) ' )  FNAME1 

16, FILE=FNAME1, STATUS 
'NODAL  POINT  DATA  FN 
'NODAL  POINT  DATA  FN 
'ELEMENTS  NODES  FN  ? 


ADINA  OUTPUT  FILE? 


OLD'  ) 
' ,FNAME1 
' ,FNAME1 


OLD'  ) 

' ,FNAME2 

' ,FNAME2 


READ  (5, ' (A) ' )  FNAME2 

OPEN  (UNIT=15,FILE=FNAME2,STATUS= 

WRITE  (5,  *)  'ELEMENTS  NODES   FN  : 

WRITE  (3,  *)  'ELEMENTS  NODES   FN  : 

WRITE  (5, A)  'ENTER  THE  NAME  OF  ELEMENTS  AREAS  FILE 

READ  (5, ' (A) ' )  FNOUT 

OPEN  (UNIT=13,FILE=FNOUT,STATUS='NEW ) 

WRITE  (5, *)  'AREAS  OF  ELEMENTS  FILE  :  ', FNOUT 

WRITE  (3,  A)  'AREAS  OF  ELEMENTS  FILE  :  ', FNOUT 

DIFINING  X,Y  COORDINATES  FROM  NODAL  POINT  DATA  FILE 


WRITE 
WRITE 
DO  50 


(5 
(3 


30)  ' 
30)  ' 
1  =  1,  NNOD 
READ  (16, 


NNOD1 
NNOD' 


'XCOOR 
'XCOOR 


YCOOR' 
YCOOR' 


)  INOD, 112, 113, 114, 115, 116 
1112,1113, II14,C00R(I,1) 
40)I,COOR(I,1) ,COOR(I,2) 
40)I,COOR(I,1) ,C00R(I,2) 


117, 118, 119, 1110,1111, 
C00R(I,2) ,A17, 1118,1119 


*  WRITE  (5 

*  WRITE  (3 
50    CONTINUE 

A 

*  DIFINING  ELEMENT'S  NODES  FROM  ELEM. NODES  FN. 

A 

WRITE    C5,10)     'NEL' ,.   ' NODE1 ' , 'NODE2' , 'NODE3' , 'NODE4' 
WRITE    (3,10)     'NEL',     ' NODE1 ' , ' NODE2 ' , ' NODE3 ' , ' N0DE4 ' 
AMIN=2000.0 
DO    100    IEL=1,NEL 

READ    (15, *)    IIEL,I2,I3,I4,I5,I6,I7,I8,A9,A10,I11,INODE(IEL,1) 
&  INODE(IEL,2) ,INODE(IEL,3) , INODE( IEL ,4 ) ,116,117,118,119 


WRITE(5,20)    IIEL,INODE(IEL, 
i  INODE(IEL,4) 

WRITE(3,20)    IIEL,INODE(IEL, 
i  INODE(IEL,4) 

NODE(l)    =    INODEdEL 
NODE(2)    =    INODEdEL 


1) 


)  ,  INODEdEL 

2) 

,  INODEdEL 

)  ,  INODEdEL 

2) 

,  INODEdEL 

1) 
2) 

3) 


3) 
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N0DE(3)  =  IN0DE(IEL,3) 
N0DE(4)  =  IN0DE(IEL,4) 
k 

*  DIFINING  THE  X,Y  COORD.  TO  NODE(l)  -  N0DE(4) 

A 

WRITE  (5,30)  'NNOD' , 'XCOOR' , ' YCOOR ' 
WRITE  (3,30)  'NNOD' , 'XCOOR' , 'YCOOR' 
DO  80  J  =  l,4 
DO  70  1=1, NNOD 

IF  (I.EQ.NODE(J) )  THEN 

X(J)  =  COOR(I,l) 
Y(J)  =  COOR(I,2) 
WRITE  (5,40)I,X(J) ,Y(J) 
WRITE  (3,40)I,X(J) ,Y( J) 


GO  TO 

80 

END  IF 

70    CONTINUE 

80    CONTINUE 

*  ELEMENTS  AREA 
A   

CALCULATION. 

Bl  =  Y(3) 

-  Y(4) 

B2  =  Y(4) 

-  Y(2) 

CI  =  X(4) 

-  X(3) 

C2  ■  X(3) 

-  X(2) 

BB1  =  Y(4) 

-  Y(l) 

BB2  =  Y(l) 

-  Y(2) 

CC1  =  X(l) 

-  X(4) 

CC2  =  X(2) 

-  X(l) 

AP.EA1  =  ABS(C2*B1  ■  C1*B2)  /  2.0 

AREA2  =  ABS(CC2*BB1  •  CC1*BB2)  / 

AREA(IEL) 

=  AREA1  +AREA2 

2.0 


AEL=AREA(IEL) 

AMIN  =  MIN(AMIN,AEL) 

WRITE  (5,90)  IIEL,AREA(IEL) ,AMIN 

WRITE  (3,90)  IIEL,AREA(IEL)  ,A>1IN 
100    CONTINUE 

DO  110  1=1, NEL 
WRITE  (13, 95)1, AREA(I) , AMIN 
WRITE  (5,95)I,AREA(I) ,AMIN 


( /5(A7,4X)/70( '-' ) ) 

(  //5(I7,4XW) 

( /3(A7,4X) /40( '-' ) ) 

(/I7,4X,2E11.3) 

(//1X, 'AREA(  '  ,12,  '  )  =  ',2F10.2 

(•//1X,I2,2F10.2) 


110 

CO  NT  IN' 

10 

FORMAT 

20 

FORMAT 

30 

FORMAT 

40 

FORMAT 

90 

FORMAT 

95 

FORMAT 

A 

STOP 

END 
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AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PROGRAM  TRANS3 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

C  THIS  PROGRAM  TRANFORMS  THE  STRESSES  OUTPUT  FROM  ADINA, 

C  EXPRESSED  IN  THE  GLOBAL  STRUCTURE  COORDINATE  SYSTEM,  TO 

C  THE  PRINCIPAL  MATERIAL  COORDINATE.  AND  THEN,  CALCULATES  THE 

C  RELIABILTY  PER  STRESS  COMPONENT  AND  PER  ELEMENT  AND  FINALLY 

C  EVALUATES  THE  TOTAL  RELIABILITY.  ALL  THAT  BY  CALLING  THE 

C  SUBROUTINE  HEREIN. 


C  NEL 

C  SX,SY, . . . ,SYZ 

C  THETA 

C  S1,S2, . . .  S6 

C  R1,R2 ,R6 

C  RT1,RT2, . . .RT6 

C  RE 

C  RT 

C  ALF 


#  OF  TOTAL  ELEMENTS. 

THE  STRESS  IN  GLOBAL  COORDINATE  SYSTEM. 

THE  LAYUP  ANGLE  PER  ELEMENT. 

THE  STRESS  IN  THE  MATERIAL  PRINCIPAL  COORDINATE. 

THE  RELIABILITY  PER  STRESS  COMPONENT. 

THE  TOTAL  RELIABILTY  OF  STRUCTURE  PER  COPMPONENT. 

THE  RELIABILITY  PER  ELEMENT 

THE  TOTAL  RELIABILITY. 

THE  SHAPE  FUNCTION  PARAMER  FOR  WEIBULL 
C     BEFORE  RUNNING  THE  PROGRAM  VERIFY  IN  THE  PROGRAM  THE  ANGLE  THETA 
C      INPUT  AND  THE  #  OF  ELEMENT. AND  ALSO  VERIFY  THE  MATERIAL  PROEPRTIES 
C     GIVEN  IN  SUBROUTINE  BETA. 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

INTEGER  NEL 

PARAMETER  (NEL=12,PI  =  3.1415927  ) 

PARAMETER  ( ROWS=100 ,C0LS=6 ,COLSl=7 ) 

INTEGER  ITHETA(NEL) 

REAL*8  A(ROWS,COLS) , B (ROWS , COLS ) ,C ( ROWS , COLS1 ) 

REAL  SX ( NEL ) , S Y ( NEL ) , SZ ( NEL ) , SXY ( NEL ) , SXZ ( NEL ) , SYZ ( NEL ) 

REAL  L , M , THETA ( NEL ) , THETAF ( NEL ) , ALF 

CHARACTERA20  FNAME,FNOUT,FNAMEl ,FNAME2 

A 

WRITE  (5, A)  'ENTER  INPUT  STRESS  FN   ?' 

READ  ( 5 , ' ( A ) ' )  FNAME 

WRITE  (5, A)  'INPUT  STRESS  FN  =  ', FNAME 

OPEN  (UNIT=15,FILE=FNAME,STATUS='OLD' ) 

WRITE  (5, A)  'ENTER  INPUT  ELEM.  ANGLE  FN?' 

READ  (5, ' (A) ' )  FNAME2 

WRITE  (5,  A)  'INPUT  ELEM.  ANGLE  FN  =  '  ,FNAME2 

OPEN  (UNIT=16,FILE=FNAME2,STATUS='0LD' ) 

WRITE  (5,*)  'ENTER  AREAS  OF  ELEMENTS  FN  ?' 

READ  (5, ' (A) ' )  FNAME1 

OPEN  (UNIT=17,FILE=FNAMEl,STATUS='OLD' ) 

WRITE  (5,  A)  '  ENTER  OUTPUT  FN  ?' 

READ  (5, ' (A) ' )  FNOUT 

OPEN  (UNIT=13,FILE=FNOUT,STATUS='NEW' ) 

WRITE  (13,  A)  'INPUT  STRESS  FN  =  ', FNAME 

WRITE  (13,  A)  'INPUT  ELEM.  ANGLE  FN  =  '  ,FNAME2 

WRITE  (13,*)  'INPUT   AREAS  OF  ELEMENTS  FN  =',FNAME1 

WRITE  (13, *)  '  OUTPUT  FN  =', FNOUT 

A 

* INPUT  OF  ANGLE  (THETA)  FOR  EA.  ELEMENT  ; 

A 

DO  20  1=1, NEL 

READ  (16, *)  N,I2,I3,I4,I5,I6,ITHETA(I) , 18 , A9 ,A10 , 111 , 
&  112,113,114,115,116,117,118,119 

IF  (ITHETA(I) .EQ.l)  THETA(I)  =90.0 
IF  (ITHETA(I) .EQ.3)  THETA(I)  =75.0 
WRITE  (5,25)  N,THETA(I) 
THETAF(I)  =  THETA(I)*  PI/ 180.0 
20     CONTINUE 
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WRITE  (13,  ^)  'OUTPUT  :',FNOUT 
A 

^TRANSFORMATION  OF  STRESSES  TO  PRINCIPAL  AXES  STRESS  ; 

A 

WRITE  (13,11)  'NEL' ,'SX' ,'SY' ,  ' SZ ',' SXY ',' SXZ ',' SYZ ',' ANGLE' 
DO  55  1=1, NEL 

READ  (15, A)  IEL,NOD,SX(I>  ,SY(I)  ,SZ(I),SXY(I),SXZ(I) ,SYZ(I) 
THETA(I)  ■  THETAF(I)*180.0  /  PI 

WRITE  (13,61)  IEL,SX(I) ,SY(I) ,SZ(I) ,SXY(I) ,SXZ(I) ,SYZ(I) , 
&  THETA ( I ) 


L=COS(THETAF(I) ) 
M=SIN(THETAF(I) ) 

A(I,1)=  SX(I)ML^2)  +  SY(I)MM**2)  +  2*SXY ( I ) ^L^M 

A(I,2)=  SX(I)A(M^A2)  +  SY(I)ML**2)  -  2*SXY(I)*L*M 

A(I,3)=  SZ(I) 

A(I,6)=  -SX(I)*L*M  +  SY(I)^MAL  +  SXY(I)ML**2  -  M**2) 

A(I,5)=  SYZ(I)*M  +  SXZ(I)*L 

A(I,4)=  SYZ(I)*L  -  SXZ(I)*M 
55    CONTINUE 

WRITE  (13,10)  'NEL'  ,  'SI'  , 'S2'  ,  'S3'  ,  ' S6 '  , 'S5' , 'S4' 
DO  BO  1=1, NEL 

WRITE  (13,60)  I,A(I,1) ,A(I,2) ,A(I,3) ,A(I,6) ,A(I,5) ,A(I,4) 
80     CONTINUE 

A 

^SUBROUTINES  FOR  CALCULATING  THE  RELIABILITY  ; 

A 

CALL  BETA ( A, B, NEL) 

WRITE  (5,  ^)  'INPUT  ALFA' 

READ   (5,  A)  ALF 

WRITE  (13,  *)  'ALFA  : '  ,ALF 

CALL  ALFA ( A, B, NEL, ALF) 

CALL  RELI(A,B,NEL) 

CALL  ELRE(B,NEL) 

A 

10  FORMAT  ( // ,1X,A10,6(A7,4X)  /  1X,80('-')) 

11  FORMAT  ( // ,1X,A10,7(A7,4X)  /  1X,80('-')) 
15    FORMAT  ( IX, ' THETA ( ' ,12, ' )=  ') 

25     FORMAT  ( IX, ' THETA ( ' , 12 , ' ) =  ',F6.D 

60  FORMAT  ( / , 4X, 16 , 6E11 . 3 ) 

61  FORMAT  ( / ,4X,I6,6E11.3,3X,F6.1) 

A 

STOP 
END 

A +  +  +  +  +  +  +  +  +  +  + +  4-  +  +  +  +  +  +  +  +  +  + +  +  +  +  +  +  +  +  +  -* +++++++++++++++++4 +++++++++ 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  BETA( A , B,NEL) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  (ROWS=100 ,C0LS=6 ) 
REALMS  AtROWS, COLS) ,B(ROWS, COLS) 
REAL  X(COLS) ,X1C,X2C,X3C 
A 

*  PLY  STRESS  -  STRENGTH, RAT 10  CALCULATION  : 

A 

WRITE  (13,10)  'NEL'  , 'SRI'  ,  ' SR2 '  ,  ' SR3 '  ,  'SR6'  ,  'SR5'  , ' SR4 ' 

DO  90  1=1, NEL 
C  STRENGTH  PROPERTIES  FOR  GRAPHITE  EPOXY , 
C 
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X(l) 

=  15.0E4 

X(2) 

=  0.4E4 

X(3) 

=  X(2) 

X(6) 

=  0.68E4 

X(4) 

=  X(6) 

X(5) 

=  X(6) 

X1C  = 

-15.0E4 

X2C  = 

-2.46E4 

X3C  = 

X2C 

IF  (A(I,1) .LT.O) 

X(l) 

=  X1C 

IF  (A( 1,2) .LT.O) 

X(2) 

=  X2C 

IF  (A(I,3).LT.O) 

X(3) 

=  X3C 

DO  80  J=l,COLS 

B(I,J)  =  ABS(A(I,J)  /  X(J) ) 
80    CONTINUE 

WRITE  (13,60)  I,B(I,1) ,B(I,2) ,E(I,3) ,B(I,6) ,B(I,5) ,B(I,4) 
90    CONTINUE 

10     FORMAT  ( // ,1X,A10,6(A7,4X)  /  1X,80('-')) 
60    FORMAT  ( / , 4X, 16 , 6E11 . 3 ) 

RETURN 

END 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  ALFA( A , B ,NEL , ALF) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  (ROWS=100 ,COLS=6 ) 
REAL* 8  AtROWS, COLS) ,B(ROWS, COLS 
REAL  AREA(IOO) ,AMIN 


PLY  STRESS  -  STRENGTH, RATIO  RISED  BY  ALFA  CALCULATION 


WRITE  (13,10)  'NEL' ,'V1' ,'V2' ,'V3' ,'V6' ,'V5' ,'V4* 

DO  90  1=1, NEL 

READ  (17, ^)  IIEL,AREA(I) ,AMIN 
AMIN=400. 

WRITE  (5,95)  IIEL,AREA(I) ,AMIN 

WRITE  (3,95)  IIEL,AREA(I) ,AMIN 

DO  80  J=1,C0LS 
*         A(I,J)  =  B(I,J)**ALF 

A(I,J)  =  (B(I,J)^ALF)*AREA(I)/AMIN 
80    CONTINUE 

WRITE  (13,60)I,A(I,1),A(I,2),A(I,3),A(I,6),A(I,5),A(I,4) 

9  0     CONTINUE 

10  FORMAT  ( //,1X,A10,6(A7,4X)  /  1X,80('-')) 
60    FORMAT  ( / , 4X, 16 ,6E11 . 3 ) 

95    FORMAT  ( / / IX, ' AREA(  '  , 12  ,  '  )  =  ',2F10.2) 
RETURN 
END 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  RELI ( A ,B, NEL ) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  ( ROWS=l 00 ,C0LS=6 ) 
REAL*8  A(ROWS, COLS) ,B(ROWS, COLS) 
A 

*  PLY  STERSS  TENSOR  RELIABILITY  CALCULATION 


(WEIBULL) 


WRITE  (13,10)  'NEL'  , 'Rl'  , 'R2'  , 'R3'  , 'R6'  , 'R5'  , 'R4' 

DO  90  1=1, NEL 
DO  80  J=l,COLS 
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B(  I,  J)  =  EXP  (  -A  (I,  J)  )'- 
80     CONTINUE 

WRITE  (13,60)  I,B(I,1) ,B(I,2) ,B(I,3) ,B(I,6) ,B(I,5) ,B(I,4) 
90     CONTINUE 

10     FORMAT  ( //,1X,A10,6(A7,4X)  /  1X,80('-')) 
60     FORMAT  ( / , 4X, 16 ,6E11 . 3 ) 

RETURN 

END 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  ELRE(B,NEL) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  ( ROWS=100 ,C0LS=6 ,C0LS1=7 ) 
REAL*8  B(ROWS;COLS) , C(R0WS ,C0LS1 ) ,RT 

A 

^ELEMENTS  RELIABILITY  CALCUL.,  AS  WELL  AS  "FIBER"  (Rl)  AND  "MATRIX" 

^RELIABILITY  CALCUL . &  TOTAL  STRUCTURE  RELIABILITY  CALCUL. 

A 

WRITE  (13,10) 'NEL' , ' Rl '  , ' R2 '  ,  ' R3 '  , ' R6 '  , ' R5 ' , ' R4 ' , ' RE' 

RT  =1.0 

C(NEL+1,1)=1.0 

DO  90  1=1, NEL 

C(I,C0LS1)  =  1.0 

DO  80  J=l,COLS 

C(I,J)=B(I,J) 

C(I,C0LS1)  =  C(I,C0LS1)  a  C(I,J) 

C(NEL+1,J)  =  C(NEL+1,J)  *  C(I,J) 
80    CONTINUE 

RT  =  RT  a  C(I,C0LS1) 

WRITE  (5,60)  I,C(I,1),C(I,2),C(I,3),C(I,4),C(I,5),C(I,6),C(I,7) 

WRITE  (13,60)  I,C(I,1) ,C(I,2) ,C(I,3) ,C(I,4) ,C(I,5) ,C(I,6) ,C(I,7) 

9  0     CONTINUE 

WRITE  (13,10)  'TOTAL  REL. : ' , ' RT1 ' , ' RT2 ' , ' RT3 ' , ' RT6 ' , 'RT5 ' , 
&  'RT4','RT' 

WRITE  (13,65)  C(NEL+1,1) ,C(NEL+1,2) ,C(NEL+1,3) ,C(NEL+1,4) , 
S  C(NEL+1,5) ,C(NEL+1,6) ,RT 

WRITE  (5,70)  RT 

WRITE  (13,70)  RT 

10  FORMAT  ( //,1X,A10,7(A7,4X)  /  1X,95('-')) 
60    FORMAT  ( / , 4X, 16 , 7E11 . 3 ) 

65    FORMAT  ( / , 11X, 7E11 . 3 ) 

70    FORMAT  (//, IX, ' TOTAL  STRUCTURE  RELIABILITY  =  ',E11.3  /1X,40('=')) 

RETURN 

END 
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INPUT  STRESS  FN  =  THV3D.STR 

INPUT  ELEM.  ANGLE  FN  =  THV3D.EL 

INPUT   AREAS  OF  ELEMENTS  FN  =THV3D.AREA 

OUTPUT  FN  =THV3D.REL 
OUTPUT  :TKV3D.REL 

NEL     SX         SY         SZ        SXY        SXZ        SYZ      ANGLE 

1  -0.279E+03   0.391E+05  -0.286E+01  -0.235E+04   0.254E+01  -0.983E+01      90.0 

2  0.277E+03   0.209E+05  -0.268E+01   0.235E+04   0.254E+01  -0.976E+01      75.0 

3  0.277E+03   0.209E+05  -0.268E+01   0.235E+04  -0.254E+01   0.976E+01      75.0 

4  -0.279E+03   0.391E+05  -0.286E+01  -0.235E+04  -0.254E+01   0.983E+01      90.0 

5  -0.316E+03   0.390E+05  -0.B81E+02  -0.235E+04   0.742E-01  -0.566E+00      90.0 

6  0.243E+03   0.209E+05  -0.754E+02   0.235E+04   0.742E-01  -0.332E+00      75.0 

7  0.243E+03   0.209E+05  -0.754E+02   0.235E+04  -0.742E-01   0.332E+00      75.0 

8  -0.316E+03   0.390E+05  -0.881E+02  -0.235E+04  -0.742E-01   0.566E+00      90.0 

1  -0.287E+03   0.391E+05  -0.169E+02  -0.235E+04   0.494E+00  -0.216E+01      90.0 

2  0.270E+03   0.209E+05  -0.146E+02   0.235E+04   0.494E+00  -0.196E+01      75.0 

3  0.270E+03   0.209E+05  -0.146E+02   0.235E+04  -0.494E+00   0.196E+01      75.0 

4  -0.287E+03   0.391E+05  -0.169E+02  -0.235E+04  -0.494E+00   0.216E+01      90.0 

NEL      SI  S2  S3  S6  S5  S4 

1  0.391E+05  -0.279E+03  -C.286E+01  0.235E+04  -0.983E+01  -0.254E+01 

2  0.207E+05   0.484E+03  -0.268E+01  0.313E+04  -0.877E+01  -0.498E+01 

3  0.207E+05   0.484E+03  -0.26BE+01  0.313E+04  0.877E+01   0.498E+01 

4  0.391E+05  -0.279E+03  -0.286E+01  0.235E+04  0.983E+01   0.254E+01 

5  0.390E+05  -0.316E+03  -0.881E+02  0.235E+04  -0.566E+00  -0.742E-01 

6  0.207E+05   0.451E+03  -0.754E+02  0.313E+04  -0.301E+00  -0.158E+00 

7  0.207E+05   0.45IE+03  -0.754E+02  0.313E+04  0.301E+00   0.158E+00 

8  0.390E+05  -0.316E+03  -0.881E+02  0.235E+04  0.566E+00   0.742E-01 

9  0.391E+05  -0.287E+03  -0.169E+02  0.235E+04  -0.216E+01  -0.494E+00 

10  0.207E+05   0.477E+03  -0.146E+02   0.313E+04  -0.177E+01  -0.985E+00 

11  0.207E+05   0.477E+03  -0.146E+02   0.313E+04   0.177E+01   0.985E+00 
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APPENDIX  D 
APPLICATIONS 

We  are  again  considering  the  simply  supported  anisotropic  square 
plate  with  uniform  tensile  load,  described  in  the  former  appendices. 

Here,  the  meshing  used  is  modeling  a  conventional  repair  of  a 
damaged  structure.  We  are  thereby  calculating  the  reliability  for  differ- 
ent configurations. 

Using  the  THP3D4  program,  the  verification  problem  (THV3D)  is 
solved  with  different  mesh  sizes  (i.e.,  different  element  sizes).  Com- 
paring the  results  for  the  total  reliability,  we  may  conclude  that  the 
results  are  in  good  agreement  with  each  other  (Rt(THV3D)  =  0.807, 
RT(THP3D4)   =  0.824). 

The  THM3D4  program  analyzes  the  parent  structure  with  a  hole. 
The  resulting  total  reliability  is  0  (Rt  =  0.0).  In  other  words,  the 
structure  will  probably  fail  due  to  the  given  applied  load. 

The  THM3D4  program  simulates  a  repair  configuration  using  a 
weaker  material  (E-glass/epoxy  instead  of  graphite/epoxy  used  for  the 
original  parent  structure).  The  reliability  decreases  in  comparison 
with  the  original  undamaged  structure,  Rt  =  0.1. 

To  improve  the  total  reliability,  in  the  THA3D4  program  we  sim- 
ulate a  repair  configuration  by  using  a  different  lay-up  orientation 
([9O4])  for  the  patch  and,  as  expected,  the  repair  causes  the  total 
structure  to  be  more  reliable,  Rj  =  0.87. 
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In  summary,  from  all  the  individual  results  for  the  computed  reli- 
abilities listed  in  the  programs  below,  we  can  interpret  the  critical 
element  (see  RE  in  the  results)  or  the  critical  stress  component  (see 
RT1,  RT2,  etc.),  which  may  represent  the  fiber  or  the  matrix  of  the 
composite  material. 
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*  ADINA-IN  INPUT  FILE 

A 

A  THP3D4.IN  EIGHT  SYMMETRIC  LAYER  USING  3-D. 

A 

FILEUNITS  LIST=B  L0G  =  7  ECH0=7 
CONTROL  PLOTUNIT=CM 
COLORS  BCODE=BLUE 

A 

DATABASE  CREATE 
WORKSTATION  DEVICE=0 

A 

HEADING  '  THP3D4.IN;  aaa£IGHT  LAYERS  SOLUTION   90,75  DEG  aaa- 

A 

MASTER  IDOF=000111 

PRINTOUT  VOLUME=MAXIMUM  IPD=1  IPRIC=0  P=STRAINS 

PORTHOLE  FORMATTED=YES  FILE=60 

A 

COORDINATES  /  ENTRIES  NODE     X      Y      Z 

1  -20.    -20.   0.1 

2  0.    -20.   0.1 

3  20.    -20.   0.1 

4  -20.      0.   0.1 

5  0.      0.   0.1 

6  20.      0.   0.1 

7  -20.     20.   0.1 

8  0.     20.   0.1 

9  20.     20.   0.1 

21  -20.    -20.   0. 

22  0.    -20.   0. 

23  20.    -20.   0. 

24  -20.      0.   0. 

25  0.      0.   0. 

26  20.      0.   0. 

27  -20.     20.   0. 

28  0.     20.   0. 

29  20.     20.   0. 

101  5.      0.   0. 

102  0.     10.   0. 

103  5.     10.   0. 

104  15.      2.68  0. 

105  7.68   10.    0. 

106  15.     10.    0. 

107  15.    -10.    0. 

A  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =r  =  =  =  =  rr  =  =  =  =  =  =  =  =  =  =  =  --  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  = 

*N0TE  THE  MAXES  MEAN  :  1=90DEG  2=15  3=75  4=45  5=-45 

Ar==  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =:  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  = 

MATERIAL  1  ORTHOTROPIC  181. E05  10.3E05  10.3E05  0.0159  0.0159 

GAB=7.17E05  7.17E05  7.17E05 

A 

SYSTEM  1  CYLINDRIC  X=0  Y=0  Z=0  PHI=0  THETA=-90.  XSI=90. 

COORDINATES  /  ENTRIES  NODES  R  THETA  XL 

10  10.   0.  0.1 

11  10.   45.  0.1 

12  10.   90.  0.1 

13  10.   135.  0.1 

14  10.   180.  0.1 

15  10.   225.  0.1 

16  10.   270.  0.1 

17  10.   315.  0.1 


0.28, 


101 


18 

10. 

360. 

0. 

30 

10. 

0. 

0. 

31 

10. 

45. 

0. 

32 

10. 

90. 

0. 

33 

10. 

135. 

0. 

34 

10. 

180. 

0. 

35 

10. 

225. 

0. 

36 

10. 

270. 

0. 

37 

10. 

315. 

0. 

30 

10. 

360. 

0. 

LINE  CYLINDRIC  11  10  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  12  11  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  13  12  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  14  13  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  15  14  EL  =  1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  16  15  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  17  16  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  18  17  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  31  30  EL---1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  32  31  EL  =  1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  33  32  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  34  33  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  35  34  EL  =  1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  36  35  EL  =  1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  37  36  EL  =  1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  38  37  EL=1  MIDN0DES=1  NC=A 

A 

EGROUP  1  THREEDSOLID  MATERIALS  TABLES 
GVOLUME  7  4  18  17  27  24  38  37  EL1=1  EL2=1 


GVOLUME  4 

GVOLUME  1 

GVOLUME 

GVOLUME 

GVOLUME 

GVOLUME 


1  11  10  24  21  31  30  EL1=1  EL2=1 

2  12  11  21  22  32  31  EL1=1  EL2=1 

3  13  12  22  23  33  32  EL1=1  EL2=1 
6  14  13  23  26  34  33  EL1=1  EL2=1 
9  15  14  26  29  35  34  EL1=1  EL2=1 
8  16  15  29  28  36  35  EL1=1  EL2  =  1 


GVOLUME  8  7  17  16  28  27  37  36  EL1=1  EL2=1 
GSURFACE  7  8  28  27    EL1  =  1  EL2=4  N0  =  9 
GSURFACE  8  9  29  28    EL1=1  EL2  =  4  N0=9 

NODI=101  NODJ=103  NODK  = 
NODI=101  N0DJ=104  NODK^ 
NODI=101  NODJ=105  NODK= 
NODI=101  NODJ=106  NODK^ 
N0DI=101  NODJ=107  NODK' 
3  4  5  6  7  8  21  26  27 


AXES-ORTHOTROPIC 

AXES-ORTHOTROPIC 

AXES-ORTHOTROPIC 

AXES-ORTHOTROPIC 

AXES-ORTHOTROPIC 

^STRESSTABLE  1  1 

STRESSTABLE  1   21 

EDATA  /  ENTRIES  EL  TABLE  MAXES 


EL3  =  4 

NODES= 

=  27 

EL3  =  4 

NODES = 

=  27 

EL3  =  4 

NODES= 

=  27 

EL3  =  4 

NODES = 

=  27 

EL3  =  4 

NODES = 

=  27 

EL3  =  4 

NODES= 

=  27 

EL3  =  4 

NODES = 

=  27 

EL3  =  4 

NODES: 

=  27 

ao2 

=  102 

ao2 

=  102 

=  102 

STEP  4  TO 


STEP  4  TO 


STEP  4  TO 


STEP  4  TO 


29 
2 

30 
3 

31 
4 

32 


102 


LOADS  ELEMENT 

9   2   -3.0E04 
TO 

16   2   -3.0E04 

A 

FIXB  123  LINES  /  8  28 

FIXB  23  SURFACES  /   7  8  28  27  /  8  9  29  28 

A 
A 

EGROUP  2  THREEDSOLID  MATERIALS  TABLES 

GVOLUME  11  12  5  5  31  32  25  25  EL1=1  EL2=1  EL3  =  4  N0DES=27 
GVOLUME  12  13  5  5  32  33  25  25  EL1=1  EL2  =  1  EL3=4  NODES=27 
GVOLUME  13  14  5  5  33  34  25  25  EL1=1  EL2=1  EL3=4  NODES=27 
GVOLUME  14  15  5  5  34  35  25  25  EL1=1  EL2=1  EL3=4  N0DES=27 
GVOLUME  15  16  5  5  35  36  25  25  EL1=1  EL2=1  EL3=4  N0DES=27 
GVOLUME  16  17  5  5  36  37  25  25  EL1=1  EL2=1  EL3=4  NODES=27 
GVOLUME  17  18  5  5  37  38  25  25  EL1=1  EL2=1  EL3  =  4  NODES=27 
GVOLUME  10  11  5  5  30  31  25  25  EL1=1  EL2=1  EL3=4  NODES=27 
AXES-ORTHOTROPIC  1  NODI=101  NODJ=103  NODK=102 
AXES-ORTHOTROPIC  2  NODI=101  NODJ=104  NODK=102 
AXES-ORTHOTROPIC  3  NODI=101  N0DJ=105  NODK=102   * 
AXES-ORTHOTROPIC  4  NODI=101  NODJ=106' NODK=102 
AXES-ORTHOTROPIC  5  N0DI=101  NODJ=107  NODK=102 
^STRESSTABLE  112345678  21  26  27 
STRESSTABLE  1   21 
EDATA  /  ENTRIES  EL  TABLE  M/iXES 


STEP  4  TO 
STEP  4  TO 
STEP  4  TO 
STEP  4  TO 


29  1       1 

2  13 

30  1       3 

3  13 

31  1       3 

4  1       1 


32     1       1 

A 
A 

EGZONE  NAME=PARENT    /    1    /    2 

FRAME   HEAD I NG= UPPER   XSF=1.0    YSF=0.5    XFMAX=22.5    YFMAX=17.0 
MESH   ZONE=PARENT   NODES=0   ELEMENT=1    HIDDEN=DASHED   BCODE=ALL 
'■'FRAME  HEADING  =  UPPER   XSF  =  1.0   YSF  =  0.5   XFMAX  =  22.5   YFMAX=17.0 
^MESH   ZONE=PATCH   NODES =0    ELEMENT=1   HIDDEN =DA5HED   BCODE=ALL 

A 

ADINA 

A 

END 
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AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PROGRAM  TRANS3 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

C  THIS  PROGRAM  TRANFORMS  THE  STRESSES  OUTPUT  FROM  ADINA, 

C  EXPRESSED  IN  THE  GLOBAL  STRUCTURE  COORDINATE  SYSTEM,  TO 

C  THE  PRINCIPAL  MATERIAL  COORDINATE.  AND  THEN,  CALCULATES  THE 

C  RELIABILTY  PER  STRESS  COMPONENT  AND  PER  ELEMENT  AND  FINALLY 

C  EVALUATES  THE  TOTAL  RELIABILITY.  ALL  THAT  BY  CALLING  THE 

C  SUBROUTINE  HEREIN. 


C  NEL 

C  SXrSY, . . . ,SYZ 

C  THETA 

C  S1,S2 S6 

C  R1,R2, R6 

C  RT1,RT2, . . .RT6 

C  RE 

C  RT 

C  ALF 


#  OF  TOTAL  ELEMENTS. 

THE  STRESS  IN  GLOBAL  COORDINATE  SYSTEM. 

THE  LAYUP  ANGLE  PER  ELEMENT. 

THE  STRESS  IN  THE  MATERIAL  PRINCIPAL  COORDINATE. 

THE  RELIABILITY  PER  STRESS  COMPONENT. 

THE  TOTAL  RELIABILTY  OF  STRUCTURE  PER  COPMPONENT. 

THE  RELIABILITY  PER  ELEMENT 

THE  TOTAL  RELIABILITY. 

THE  SHAPE  FUNCTION  PARAMER  FOR  WEIBULL 
C     BEFORE  RUNNING  THE  PROGRAM  VERIFY  IN  THE  PROGRAM  THE  ANGLE  THETA 
C      INPUT  AND  THE  #  OF  ELEMENT. AND  ALSO  VERIFY  THE  MATERIAL  PROEPRTIES 
C      GIVEN  IN  SUBROUTINE  BETA. 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

INTEGER  NEL 

PARAMETER  (NEL=64,PI  =  3.1415927  ) 

PARAMETER  ( ROWS=100 ,C0LS=6 ,COLSl=7 ) 

INTEGER  ITHETA(NEL) 

REALMS  A(ROWS,COLS) , B(ROWS ,COLS ) ,C( ROWS ,COLSl ) 

REAL  SX ( NEL ) , SY ( NEL ) , SZ ( NEL ) , SXY ( NEL ) , SXZ ( NEL ) , SYZ ( NEL ) 

REAL  L , M , THETA ( NEL ) , THETAF ( NEL ) , ALF 

CHARACTER* 20  FNAME, FNOUT, FNAME1 ,FNAME2 

A 

WRITE  (5, *)  'ENTER  INPUT  STRESS  FN   ?' 

READ  ( 5 , ' ( A ) ' )  FNAME 

WRITE  (5,*)  'INPUT  STRESS  FN  =  ', FNAME 

OPEN  (UNIT=15,FILE=FNAME,STATUS='OLD' ) 

WRITE  (5, *)  'ENTER  INPUT  ELEM.  ANGLE  FN?' 

READ  (5, ' (A) ' )  FNAME2 

WRITE  (5, *)  'INPUT  ELEM.  ANGLE  FN  =  ',FNAME2 

OPEN  (UNIT=16,FILE=FNAME2,STATUS='0LD' ) 

WRITE  (5,*)  'ENTER  AREAS  OF  ELEMENTS  FN  ?' 

READ  (5, ' (A) ' )  FNAME1 

OPEN  (UNIT=17,FILE=FNAMEl,STATUS='OLD' ) 

WRITE  (5,  *)  '  ENTER  OUTPUT  FN  ?' 

READ  (5, ' (A) ' )  FNOUT 

OPEN  (UNIT=13,FILE=FNOUT,STATUS='NEW' ) 

WRITE  (13,  A)  'INPUT  STRESS  FN  =  ', FNAME 

WRITE  (13,  A)  'INPUT  ELEM.  ANGLE  FN  =  '  ,FNAME2 

WRITE  (13, *)  'INPUT  AREAS  OF  ELEMENTS  FN  =',FNAME1 

WRITE  (13,  *)  '  OUTPUT  FN  =', FNOUT 

A 

a  INPUT  OF  ANGLE  (THETA)  FOR  EA .  ELEMENT  ; 

A 

DO  2  0  1=1, NEL 

READ  (16, A)  N,I2,I3,I4,I5,I6,ITHETA(I)  ,  18 , A9 ,A10 , 111 , 
&  112,113,114,115,116,117,118,119 

IF  (ITHETA(I) .EQ.l)  THETA(I)  =90.0 
IF  (ITHETA(I) .EQ.3)  THETA(I)  =  7  5.0 
WRITE  (5,25)  N,THETA(I) 
THETAF(I)  =  THETA(I)A  PI/ 180.0 
20     CONTINUE 
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a  .: 

WRITE  (13,*)  'OUTPUT  :',FNOUT 
A 

*  TRANSFORMATION  OF  STRESSES  TO  PRINCIPAL  AXES  STRESS  ; 

A 

WRITE  (13,11)  'NEL' ,'SX' ,'SY' ,  ' SZ ',' SXY ',' SXZ ',' SYZ ',' ANGLE' 
DO  55  1=1, NEL 

READ  (15,*)  IEL,NOD,SX(I) ,SY(I) ,SZ(I) , SXY ( I ) ,SXZ(I) ,SYZ(I) 
THETA(I)  =  THETAF(I)*180.0  /  PI 

WRITE  (13,61)  IEL,SX(I) ,SY(I) ,SZ(I) , SXY ( I ) , SXZ ( I ) ,SYZ(I) , 
&  THETA ( I ) 


L=COS(THETAF(I) ) 
M=SIN(THETAF(I) ) 

A(I,1)=  SX(I)*(L**2)  +  SY(I)*(M**2)  +  2*SXY(I)*L*M 

A(I,2)=  SX(I)*(M**2)  +  SY(I)*(L**2)  -  2*SXY(I)*L*M 

A(I,3)=  SZ(I) 

A(I,6)=  -SX(I)*L*M  +  SY(I)*M*L  +  SXY(I)*(L**2  -  M**2) 

A(I,5)=  SYZ(I)*K  +  SXZ(I)*L 

A(I,4)=  SYZ(I)*L  -  SXZ(I)*M 
55    CONTINUE 

WRITE  (13,10)  'NEL' , 'SI'  , 'S2'  , 'S3'  , 'S6' , 'S5'  , 'S4' 
DO  80  1=1, NEL 

WRITE  (13,60)  I,A(I,1) ,A(I,2) ,A(I,3) ,A(I,6) ,A(I,5) ,A(I,4) 
80     CONTINUE 

A 

^SUBROUTINES  FOR  CALCULATING  THE  RELIABILITY  ; 

A 

CALL  BETA ( A, B, NEL) 

WP.ITE  (  5  ,  *  )  '  INPUT  ALFA ' 

READ   (5,*)  ALF 

WRITE  (13,*)  'ALFA  : ' ,ALF 

CALL  ALFA ( A, B, NEL, ALF) 

CALL  RELI(A,B,NEL) 

CALL  ELRE(B,NEL) 


10 

FORMAT 

(// ,1X,A10,6(A7,4X)  / 

1X,80( '• 

-'  )  ) 

11 

FORMAT 

( // ,1X,A10,7(A7,4X)  / 

1X,80( '• 

-'  )  ) 

15 

FORMAT 

(IX, 'THETA(  '  ,12,  '  )=  ' 

) 

25 

FORMAT 

(IX, ' THETA (  '  ,12,  '  )=  ' 

,F6.1) 

60 

FORMAT 

(/ ,4X,I6,6E11.3) 

61 

A 

FORMAT 

(/,4X,I6,6E11.3,3X,F6 

.1) 

STOP 
END 

A +++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++ 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  BETA( A , B ,NEL) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER    (ROWS=100 ,C0LS=6 ) 
REAL*6   A(ROWS, COLS), B(ROWS, COLS) 
REAL   X(COLS) ,X1C,X2C,X3C 

A 

A  PLY  STRESS  -  STRENGTH, RATIO  CALCULATION  : 


A- 


WRITE  (13,10)  'NEL' , 'SRI' , 'SR2' , 'SR3' , ' SR6 ' , 'SR5' , ' SR4 ' 

DO  90  1=1, NEL 
C  STRENGTH  PROPERTIES  FOR  GRAPHITE  EPOXY , 
C 
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X(l) 

=   X1C 

X(2) 

=   X2C 

X(3) 

=   X3C 

X(l)   =  15.0E4 

X(2)   =  0.4E4 

X(3)   =  X(2) 

X(6)   =  0.68E4 

X(4)   =  X(6) 

X(5)   =  X(6) 

X1C  =  -15.0E4 

X2C  =  -2.46E4 

X3C  =  X2C 

IF  (A(If 1) .LT.O) 

IF  (A( 1,2) .LT.O) 

IF  (A(I,3) .LT.O) 
DO  80  J=l,COLS 

B(I,J)  =  AES(A(I,J)  /  X(J) ) 
80     CONTINUE 

WRITE  (13,60)  I,B(I,1) ,B(I,2) ,B(I,3) ,B(I,6) ,B(I,5) ,B(I,4) 
90     CONTINUE 

10     FORMAT  ( //,1X,A10,6(A7,4X)  /  IX, 80 ('-')) 
60     FORMAT  ( / , 4X, 16 , 6E11 . 3 ) 
RETURN 
END 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  ALFA( A , B ,NEL , ALF ) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  ( ROWS = 100 ,C0LS=6) 
REAL a 8  A (ROWS, COLS) , B(R0WS , COLS ) 
REAL  AREA (100) ,AMIN 

A 

*  PLY  STRESS  -  STRENGTH, RATIO  RISED  BY  ALFA  CALCULATION  : 

A 

WRITE  (13,10)  'NEL','V1','V2','V3' ,'V6' ,'V5' ,'V4' 
DO  90  1=1, NEL 

READ  (17, A)  IIEL,AREA(I) ,AMIN 
AMIN=400. 

WRITE  (5,95)  IIEL,AREA(I)  ,AMIN 
WRITE  (3,95)  IIEL,AREA(I) ,AMIN 
DO  80  J=l,COLS 

*  A(I,J)  =  B(I,J)AAALF 

A(I,J)  =  (B(I,J)**ALF)*AREA(I)/AMIN 
80     CONTINUE 

WRITE  (13,60)I,A(I,1),A(I,2),A(I,3),A(I,6),A(I,5),A(I,4) 

9  0     CONTINUE 

10  FORMAT  ( // ,1X,A10,6(A7,4X)  /  1X,80('-')) 
60    FORMAT  ( / , 4X , 16 , 6E1 1 . 3 ) 

9  5     FORMAT  ( / / IX , ' AREA(  '  , 12  ,  '  )  =  ',2F10.2) 
RETURN 
END 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

.   SUBROUTINE  RELI(A,B,NEL) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  (  ROWS  =  1  0  0  ,  COLS  =  6  ) 
REAL*  8  A ( ROWS , COLS )  , B ( ROWS , COLS ) 

A 

*  PLY  STERSS  TENSOR  RELIABILITY  CALCULATION  (WEIBULL)  : 
A 

WRITE  (13,10)  'NEL' ,'R1' , 'R2' ,'R3' ,'R6' ,'R5' ,'R4' 

DO  9  0  1=1, NEL 
DO  80  J=l,COLS 
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B(1,J)  =  EXP  (  -A  (I,  J)  )  '- 

8  0     CONTINUE 

WRITE  (13,60)  I,B(I,1) ,B(I,2) ,B(I,3) ,B(I,6) ,B(I,5) ,B(I,4) 
90     CONTINUE 

10     FORMAT  (//,1X,A10,6(A7,4X)  /  1X,80('-')) 
60     FORMAT  ( / , 4X, 16 , 6E11 . 3 ) 

RETURN 

END 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  ELRE(B,NEL) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  ( ROWS= 100 ,C0LS=6 ,C0LS1=7 ) 
REAL*B  B(ROWS,COLS) ,C( ROWS ,C0LS1 ) ,RT 

A 

^ELEMENTS  RELIABILITY  CALCUL . ,  AS  WELL  AS  "FIBER"  (Rl)  AND  "MATRIX" 
ARELIABILITY  CALCUL. &  TOTAL  STRUCTURE  RELIABILITY  CALCUL. 

A 

WRITE  (13,10) 'NEL' , ' Rl ' , ' R2 ' , ' R3 ' , ' R6 ' , ' R5 ' , ' R4 ' , ' RE' 

RT  =1.0 

C(NEL+1,1)=1.0 

DO  90  1=1, NEL 

C(I,C0LS1)  =  1.0 

DO  80  J=l,COLS 

C(I,J)=B(I,J) 

C(I,C0LS1)  =  C(I,C0LS1)  *  C(I,J) 

C(NEL+1,J)  =  C(NEL+1,J)  *  C(I,J) 
80    CONTINUE 

RT  =  RT  ^  C(I,C0LS1) 

WRITE  (5,60)  I,C(I,1) ,C(I,2) ,C(I,3) ,C(I,4) ,C(I,5) ,C(I,6) ,C(I,7) 

WRITE  (13,60)  I,C(I,1) ,C(I,2) ,C(I,3) ,C(I,4) ,C(I,5) ,C(I,6) ,C(I,7) 

9  0     CONTINUE 

WRITE  (13,10)  'TOTAL  REL. :', 'RT1' , ' RT2 ' , 'RT3' , ' RT6 ' ,'RT5' , 
&  'RT4','RT' 

WRITE  (13,65)  C(NEL+1,1) ,C(NEL+1,2) ,C(NEL+1,3) ,C(NEL+1,4) , 
&  C(NEL+1,5)  ,C(NEL+1,6)  ,RT 

WRITE  (5,70)  RT 

write  (13,70)  r: 

10  FORMAT  (//,1X,A10,7(A7,4X)  /  1X,95('-')) 
60     FORMAT  ( /  ,  4X , 16 , 7E11 . 3 ) 

65     FORMAT  ( / , 11X, 7E11 . 3 ) 

70    FORMAT  (//, IX, 'TOTAL  STRUCTURE  RELIABILITY  =  ',E11.3  /1X,40('=') 

RETURN 

END 


107 


INPUT  STRESS  FN  =  THP3D4  .  STP. 

INPUT  ELEM.  ANGLE  FN  =  THP3D4.EL 

INPUT   AREAS  OF  ELEMENTS  FN  =THP3D4.AREA 

OUTPUT  :THP3D4.REL 

NEL     SX  SY         SZ        SXY        SXZ        SYZ  ANGLE 

1  -0.277E+03  0.391E+05   0.187E+02  -0.235E+04   0.909E+00   0.622E+01  90.0 

2  0.279E+03  0.209E+05   0.160E+02   0.236E+04   0.849E+00   0.604E+01  75.0 

3  0.279E+03  0.209E+05   0.160E+02   0.236E+04  -0.849E+00  -0.604E+01  75.0 

4  -0.277E+03  0.391E+05   0.187E+02  -0.235E+04  -0.909E+00  -0.622E+01  90.0 

5  -0.278E+03  0.391E+05   0.248E+01  -0.235E+04   0.399E+00   0.675E+01  90.0 

6  0.279E+03  0.209E+05   0.217E+01   0.235E+04   0.361E+00   0.683E+01  75.0 

7  0.279E+03  0.209E+05   0.217E+01   0.235E+04  -0.361E+00  -0.683E+01  75.0 

8  -0.278E+03  0.391E+05   0.248E+01  -0.235E+04  -0.399E+00  -0.675E+01  90.0 

9  -0.278E+03  0.391E+05   0.653E-01  -0.235E+04   0.552E+01  -0.216E+02  90.0 

10  0.278E+03  0.209E+05  -0.746E+00   0.235E+04   0.553E+01  -0.216E+02  75.0 

11  0.278E+03  0.209E+05  -0.746E+00   0.235E+04  -0.553E+01   0.216E+02  75.0 

12  -0.278E+03  0.391E+05   0.653E-01  -0.235E+04  -0.552E+01   0.216E+02  90.0 

13  -0.27BE+03  0.391E+05   0.113E+00  -0.235E+04   0.559E+01  -0.210E+02  90.0 

14  0.278E+03  0.209E+05  -0.G92E+00   0.235E+04   0.559E+01  -0.210E+02  75.0 

15  0.278E+03  0.209E+05  -0.692E+00   0.235E+04  -0.559E+01   0.210E+02  75.0 

16  -0.278E+03  0.391E+05   0.113E+00  -0.235E+04  -0.559E+01   0.210E+02  90.0 

17  -0.278E+03  0.391E+05   0.250E+01  -0.235E+04  -0.992E+00  -0.434E+01  90.0 

18  0.279E+03  0.209E+05   0.218E+01   0.235E+04  -0.967E+00  -0.438E+01  .  75.0 

19  0.279E+03  0.209E+05   0.218E+01   0.235E+04   0.967E+00   0.438E+01  75.0 

20  -0.278E+03  0.391E+05   0.250E+01  -0.235E+04   0.992E+00   0.434E+01  90.0 

21  -0.278E+03  0.391E+05   0.190E+02  -0.236E+04  -0.608E+00  -0.566E+01  90.0 

22  0.277E+03  0.209E+05   0.163E+02   0.235E+04  -0.550E+00  -0.573E+01  75.0 

23  0.277E+03  0.209E+05   0.163E+02   0.235E+04   0.550E+00   0.573E+01  75.0 

24  -0.278E+03  0.391E+05   0.190E+02  -0.236E+04   0.608E+00   0.566E+01  90.0 

25  -0.318E+03  0.390E+05  -0.115E+03  -0.235E+04  -0.598E+01  -0.109E+01  90.0 

26  0.243E+03  0.209E+05  -0.982E+02   0.235E+04  -0.607E+01  -0.414E+00  75.0 
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27  0.243E+03  0.209E+05  -0.982E+02   0.235E+04   0.607E+01   0.414E+00  75.0 

28  -0.318E+03  0.390E+05  -0.115E+03  -0.235E+04   0.598E+01   0.109E+01  90.0 

29  -0.320E+03  0.390E+05  -0.115E+03  -0.235E+04  -0.634E+01  -0.996E+00  90.0 

30  0.241E+03  0.209E+05  -0.980E+02   0.235E+04  -0.621E+01  -0.305E+00  75.0 

31  0.241E+03  0.209E+05  -0.980E+02   0.235E+04   0.621E+01   0.305E+00  75.0 

32  -0.320E+03  0.390E+05  -0.115E+03  -0.235E+04   0.634E+01   0.996E+00  90.0 

1  -0.281E+03  0.391E+05  -0.594E+00  -0.235E+04   0.205E+01  -0.802E+01  90.0 

2  0.275E+03  0.209E+05  -0.107E+01   0.235E+04   0.204E+01  -0.800E+01  75.0 

3  0.275E+03  0.209E+05  -0.107E+01   0.235E+04  -0.204E+01   0.800E+01  75.0 

4  -0.281E+03  0.391E+05  -0.594E+00  -0.235E+04  -0.205E+01   0.802E+01  90.0 

5  -0.281E+03  0.391E+05  -0.646E+00  -0.235E+04   0.206E+01  -0.778E+01  90.0 

6  0.275E+03  0.209E+05  -0.117E+01   0.235E+04   0.206E+01  -0.781E+01  75.0 

7  0.275E+03  0.209E+05  -0.117E+01   0.235E+04  -0.206E+01   0.781E+01  75.0 

8  -0.281E+03  0.391E+05  -0.646E+00  -0.235E+04  -0.206E+01   0.778E+01  90.0 

9  -0.2B1E+03  0.391E+05   0.320E+00  -0.235E+04  -0.370E+00  -0.167E+01  90.0 

10  0.275E+03  0.209E+05   0.274E+00   0.235E+04  -0.359E+00  -0.170E+01  75.0 

11  0.275E+03  0.209E+05   0.274E+00   0.235E+04   0.359E+00   0.170E+01  75.0 

12  -0.2eiE+03  0.391E+05   0.320E+00  -0.235E+04   0.370E+00   0.167E+01  90.0 

13  -0.282E+03  0.391E+05   0.641E-+01  -0.235E+04  -0.167E+00  -0.211E+01  90.0 

14  0.274E+03  0.209E+05   0.552E+01   0.236E+04  -0.170E+00  -0.218E+01  75.0 

15  C.274E+03  0.209E+05   0.552E+01   0.236E+04   0.170E+00   0.218E+01  75.0 

16  -0.282E+03  0.391E+05   0.641E+01  -0.235E+04   0.167E+00   0.211E+01  90.0 

17  -0.294E+03  0.391E+05  -0.422E+02  -0.236E+04  -0.238E+01  -0.12BE+01  90.0 

18  0.263E+03  0.209E+05  -0.361E+02   0.235E+04  -0.229E+01  -0.481E+00  75.0 

19  0.263E+03  0.209E+05  -0.361E+02   0.235E+04   0.229E+01   0.481E+00  75.0 

20  -0.294E+03  0.391E+05  -0.422E+02  -0.236E+04   0.238E+01   0.128E+01  90.0 

21  -0.295E+03  0.390E+05  -0.416E+02  -0.235E+04  -0.202E+01  -0.119E+01  90.0 

22  0.264E+03  0.209E+05  -0.356E+02   0 . 236E+04  -0.220E+01  -0.446E+00  75.0 

23  0.264E+03  0.209E+05  -0.356E+02   0.236E+04   0.220E+01   0.446E+00  75.0 

24  -0.295E+03  0.390E+05  -0.416E+02  -0.235E+04   0.202E+01   0.119E+01  90.0 
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25  -0.281E+03   0.391E+05  0.629E+01  -0.235E+04   0.323E+00   0.179E+01      90.0 

26  0.275E+03   0.209E+05  0.535E+01  0.235E+04   0.293E+00   0.211E+01      75.0 

27  0.275E+03   0.209E+05  0.535E+01  0.235E+04  -0.293E+00  -0.211E+01      75.0 

28  -0.281E+03   0.391E+05  0.629E+01  -0.235E+04  -0.323E+00  -0.179E+01      90.0 

29  -0.280E+03   0.391E+05  0.293E+00  -0.235E+04   0.130E+00   0.284E+01      90.0 

30  0.276E+03   0.209E+05  0.287E+00  0.235E+04   0.140E+00   0.243E+01      75.0 

31  0.276E+03   0.209E+05  0.287E+00  0.235E+04  -0.140E+00  -0.243E+01      75.0 

32  -0.280E+03   0.391E+05  0.293E+00  -0.235E+04  -0.130E+00  -0.284E+01      90.0 

NEL      SI          S2  S3  S6          S5          S4 

1  0.391E+05  -0.277E+03  0.187E+02  0.235E+04   0.622E+01  -0.909E+00 

2  0.207E+05   0.485E+03  0.160E+02  0.313E+04   0.605E+01   0.743E+00 

3  0.207E+05   0.485E+03  0.160E+02  0.313E+04  -0.605E+01  -0.743E+00 

4  0.391E+05  -0.277E+03  0.187E+02  0.235E+04  -0.622E+01   0.909E+00 

5  0.391E+05  -0.278E+03  0.248E+01  0.235E+04   0.675E+01  -0.399E+00 

6  0.207E+05   0.486E+03  0.217E+01  0.313E+04   0.669E+01   0.142E+01 

7  0.207E+05   0.486E+03  0.217E+01  0.313E+04  -0.669E+01  -0.142E+01 

8  0.391E+05  -0.278E+03  0.248E+01  0.235E+04  -0.675E+01   0.399E+00 

9  0.391E+05  -0.278E+03  0.653E-01  0.235E+04  -0.216E+02  -0.552E+01 

10  0.207E+05   0.485E+03  -0.746E+00  0.313E+04  -0.194E+02  -0.109E+02 

11  0.207E+05   0.4e5E+03  -0.746E+00  0.313E+04   0.194E+02   0.109E+02 

12  0.391E+05  -0.278E+03  0.653E-01  0.235E+04   0.216E+02   0.552E+01 

13  0.391E+05  -0.278E+03  0.113E+00  0.235E+04  -0.210E+02  -0.559E+01 

14  0.207E+05   0.485E+03  -0.692E+00  0.313E+04  -0.189E+02  -0.10EE+02 

15  0.207E+05   0.485E+03  -0.692E+00  0.313E+04   0.189E+02   0.108E+02 

16  0.391E+05  -0.278E+03  0.113E+00  0.235E+04   0.210E+02   0.559E+01 

17  0.391E+05  -0.278E+03  0.250E+01  0.235E+04  -0.434E+01   0.992E+00 

18  0.207E+05   0.485E+03  0.218E+01  0.313E+04  -0.448E+01  -0.198E+00 

19  0.207E+05   0.485E+03  0.218E+01  0.313E+04   0.448E+01   0.198E+00 

20  0.391E+05  -0.278E+03  0.250E+01  0.235E+04   0.434E+01  -0.992E+00 
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21  0.391E+05  -0.278E+03   0.190E+02  0.236E+04  -0.566E+01   0.608E+00 

22  0.207E+05   0.486E+03   0.163E+02  0.313E+04  -0.568E+01  -0.952E+00 

23  0.207E+05   0.486E+03   0.163E+02  0.313E+04   0.568E+01   0.952E+00 

24  0.391E+05  -0.278E+03   0.190E+02  0.236E+04   0.566E+01  -0.608E+00 

25  0.390E+05  -0.318E+03  -0.115E+03  0.235E+04  -0.109E+01   0.598E+01 

26  0.207E+05   0.450E+03  -0.982E+02  0.313E+04  -0.197E+01   0.575E+01 

27  0.207E+05   0.450E+03  -0.982E+02  0.313E+04   0.197E+01  -0.575E+01 

28  0.390E+05  -0.318E+03  -0.115E+03  0.235E+04   0.109E+01  -0.598E+01 

29  0.390E+05  -0.320E+03  -0.115E+03  0.235E+04  -0.996E+00   0.634E+01 

30  0.207E+05   0.449E+03  -0.980E+02  0.313E+04  -0.190E+01   0.592E+01 

31  0.207E+05   0.449E+03  -0.980E+02  0.313E+04   0.190E+01  -0.592E+01 

32  0.390E+05  -0.320E+03  -0.115E+03  0.235E+04   0.996E+00  -0.634E+01 

33  0.391E+05  -0.281E+03  -0.594E+00  0.235E+04  -0.802E+01  -0.205E+01 

34  0.207E+05   0.482E+03  -0.107E+01  0.313E+04  -0.720E+01  -0.404E+01 

35  0.207E+05   0.482E+03  -0.107E+01  0.313E+04   0.720E+01   0.404E+01 

36  0.391E+05  -0.281E+03  -0.594E+00  0.235E+04   0.802E+01   0.205E+01 

37  0.391E+05  -0.2eiE+03  -0.646E+00  0.235E+04  -0.778E+01  -0.206E+01 

38  0.207E+05   0.482E+03  -0.117E+01  0.313E+04  -0.701E+01  -0.401E+01 

39  0.207E+05   0.482E+03  -0.117E+01  0.313E+04   0.701E+01   0.401E+01 

40  0.391E+05  -0.281E+03  -0.646E+00  0.235E+04   0.778E+01   0.206E+01 

41  0.391E+05  -0.281E+03   0.320E+00  0.235E+04  -0.167E+01   0.370E+00 

42  0.207E+05   0.482E+03   0.274E+00  0.313E+04  -0.173E+01  -0.927E-01 

43  0.207E+05   0.482E+03   0.274E+00  0.313E+04   0.173E+01   0.927E-01 

44  0.391E+05  -0.281E+03   0.320E+00  0.235E+04   0.167E+01  -0.370E+00 

45  0.391E+05  -0.282E+03   0.641E+01  0.235E+04  -0.211E+01   0.167E+00 

46  0.207E+05   0.481E+03   0.552E+01  0.313E+04  -0.215E+01  -0.401E+00 

47  0.207E+05   0.481E+03   0.552E+01  0.313E+04   0.215E+01   0.401E+00 

48  0.391E+05  -0.282E+03   0.641E+01  0.235E+04   0.211E+01  -0.167E+00 

49  0.391E+05  -0.294E+03  -0.422E+02  0.235E+04  -0.128E+01   0.238E+01 

50  0.207E+05   0.471E+03  -0.361E+02  0.313E+04  -0.106E+01   0.208E+01 
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51  0.207E+05   0.471E+03  -0.361E+02  0.313E+04   0.106E+01  -0.208E+01 

52  0.391E+05  -0.294E+03  -0.422E+02  0.235E+04   0.128E+01  -0.238E+01 

53  0.390E+05  -0.295E+03  -0.416E+02  0.235E+04  -0.119E+01   0.202E+01 

54  0.207E+05   0.470E+03  -0.356E+02  0.313E+04  -0.100E+01   0.201E+01 

55  0.207E+05   0.470E+03  -0.356E+02  0.313E+04   0.100E+01  -0.201E+01 

56  0.390E+05  -0.295E+03  -0.416E+02  0.235E+04   0.119E+01  -0.202E+01 

57  0.391E-.-05  -0.281E+03   0.629E+01  0.235E+04   0.179E+01  -0.323E+00 

58  0.207E+05   0.482E+03   0.535E+01  0.313E+04   0.212E+01   0.264E+00 

59  0.207E+05   0.482E+03   0.535E+01  0.313E+04  -0.212E+01  -0.264E+00 

60  0.391E+05  -0.281E+03   0.629E+01  0.235E+04  -0.179E+01   0.323E+00 

61  0.391E+05  -0.280E+03   0.293E+00  0.235E+04   0.284E+01  -0.130E+00 

62  0.207E+05   0.483E+03   0.287E+00  0.313E+04   0.238E+01   0.493E+00 

63  0.207E+05   0.4B3E+03   0.287E+00  0.313E+04  -0.238E+01  -0.493E+00 

64  0.391E+05  -0.280E+03   0.293E+00  0.235E+04  -0.284E+01   0.130E+00 
ALFA  :    5.000000 

NEL      Rl  R2  R3  R6  R5  R4  RE 

1  0.999E+00   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.998E+00   0.997E+00 

2  0.100E+01   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.991E+00   0.991E+00 

3  0.100E+01   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.991E+00   0.991E+00 

4  0.999E+00   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.998E+00   0.997E+00 

5  0.100E+01   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.999E+00   0.998E+00 

6  0.100E+01   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.994E+00   0. 994E+00 

7  0.100E+01   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.994E+00   0.994E+00 

8  0.100E+01   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.999E+00   0.998E+00 

9  0.999E+00   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.998E+00   0.997E+00 

10  0.100E+01   0.100E+01   0.1O0E+01  0.100E+01   0.100E+01   0.991E+00   0.991E+00 

11  0.100E+01   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.991E+00   0.991E+00 

12  0.999E+00   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.998E+00   0.997E+00 

13  0.100E+01   0.100E+01   0.100E+01  0.100E+01   0.100E+01   0.999E+00   0.998E+00 


112 


14  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.994E+00  0.994E+00 

15  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.994E+00  0.994E+00 

16  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00  0.99BE+00 

17  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.997E+00 

18  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.991E+00  0.991E+00 

19  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.991E+00  0.991E+00 

20  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.997E+00 

21  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00  0.998E+00 

22  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.994E+00  0.994E+00 

23  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.994E+00  0.994E+00 

24  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00  0.998E+00 

25  0.999E400  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.997E+00 

26  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.991E+00  0.991E+00 

27  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.991E+00  0.991E+00 

28  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.997E+00 

29  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00  0.998E+00 

30  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.994E+00  0.994E+00 

31  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.994E+00  0.994E+00 

32  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00  0.998E+00 

33  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

34  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.996E+00 

35  0.100E+01  0.100E+01  0.100E+01  0.100E+C1  0.100E+01  0.998E+00  0.998E+00 

36  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0'.999E+00 

37  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

38  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.99BE+00 

39  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

40  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

41  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

42  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

43  0.100E+01  0.100E+01  0.100E+01  0.100E+C1  0.100E+01  0.998E+00  0.998E+00 
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44  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

45  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

46  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

47  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

48  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

49  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

50  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

51  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

52  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

53  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

54  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 
;.    55  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

56  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

57  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+0C 

58  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

59  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

60  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

61  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

62  0.100E+01  0.100E+01  0.10CE+01  0.100E+01  0.100E+01  0.998E+00  0.998E+C0 

63  0.100E+01  0.100E+01  0.100E+01  0.100E+0I  0.100E+01  C.998E+00  0.998E+00 

64  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00 

TOTAL  REL.     RT1         RT2         RT3         RT6  RT5  RT4  ,   RT 

0.991E+00   0.000E+00   O.O00E+00   0.000E+00  O.OOOE+OO   0.000E+00  0.824E+0C 
TOTAL  STRUCTURE  RELIABILITY  =    0.B24E+00 
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A  ADINA-IN  INPUT  FILE 

A 

A  THD3D4.IN  EIGHT  SYMMETRIC  LAYER  USING  3-D. 

A 

FILEUNITS  LIST=B  L0G  =  7  ECHO =7 

CONTROL  PLOTUNIT=CM 

COLORS  BCODE=BLUE 

A 

DATABASE  CREATE 
WORKSTATION  DEVICE=0 

A 

HEADING  '  THD3D4.IN;  AAAEIGTH  LAYERS   C90,75D  , DAMAGED  STRUCTURE  AAA 

A 

MASTER  IDOF=000111 

PRINTOUT  VOLUME=MAXIMUM  IPD=1  IPRIC=0  P=STRAINS 

PORTHOLE  FORMATTED=YES  FILE=60 

A 

COORDINATES  /  ENTRIES  NODE     X      Y      Z 

1  -20.    -20.   0.1 

2  0.    -20.   0.1 

3  20.    -20.   0.1 

4  -20.      0.   0.1 

5  0.      0.   0.1 

6  20.      0.   0.1 

7  -20.     20.   0.1 

8  0.    •  20.   0.1 

9  20.     20.   0.1 

21  -20.    -20.   0. 

22  0.    -20.   0. 

23  20.    -20.   0. 

24  -20.      0.   0. 

25  0.      0.   0. 

26  20.      0.   0. 

27  -20.     20.   0. 

28  0.     20.   0. 

29  20.     20.   0. 

101  5.      0.   0. 

102  0.     10.   0. 

103  5.     10.   0. 

104  15.      2.68  0. 

105  7.68   10.    0. 

106  15.     10.    0. 

107  15.    -10.    0. 

A  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  = 

•  ANOTE  THE  MAXES  MEAN  :  1=90DEG  2=15  3=75  4=45  5=-45 

A  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  = 

MATERIAL  1  ORTHOTROPIC  181. E05  10.3E05  10.3E05  0.0159  0.0159  0.28, 

GAB=7.17E05  7.17E05  7.17E05 

A 

SYSTEM  1  CYLINDRIC  X=0  Y=0  Z=0  PHI=0  THETA=-90.  XSI=90. 

COORDINATES  /  ENTRIES  NODES  R  THETA  XL 

10  10.   0.  0.1 

11  10.   45.  0.1 

12  10.   90.  0.1 

13  10.   135.  0.1 

14  10.   180.  0.1 

15  10.   225.  0.1 

16  10.   270.  0.1 

17  10.   315.  0.1 
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18 

10. 

360. 

0. 

30 

10. 

0. 

0. 

31 

10. 

45. 

0. 

32 

10. 

90. 

0. 

33 

10. 

135. 

0. 

34 

10. 

180. 

0. 

35 

10. 

225. 

0. 

36 

10. 

270. 

0. 

37 

10. 

315. 

0. 

38 

10. 

360. 

0. 

NC=A 

MIDN0DES=1  NC=A 
MIDN0DES  =  1  NOA 


LINE  CYLINDRIC  11  10  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  12  11  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  13  12  EL=1  MIDN0DES=1 
LINE  CYLINDRIC  14  13  EL=1 
LINE  CYLINDRIC  15  14  EL=1 
LINE  CYLINDRIC  16  15  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  17  16  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  18  17  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  31  30  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  32  31  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  33  32  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  34  33  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  35  34  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  36  35  EL  =  1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  37  36  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  38  37  EL=1  MIDN0DES=1  NC=A 


EGROUP  1  THREEDSOLID  MATERIALS  TABLES 


GVOLUME  7 

GVOLUME  4 

GVOLUME 

GVOLUME 

GVOLUME 

GVOLUME 

GVOLUME 


4  18  17  27  24  38  37  EL1=1  EL2  =  1 

1  11  10  24  21  31  30  EL1=1  EL2  =  1 

2  12  11  21  22  32  31  EL1=1  EL2=1 

3  13  12  22  23  33  32  EL1=1  EL2=1 
6  14  13  23  26  34  33  EL1=1  EL2=1 
9  15  14  26  29  35  34  EL1=1  EL2=1 
B  16  15  29  28  36  35  EL1=1  EL2=1 

GVOLUME  8  7  17  16  28  27  37  36  EL1=1  EL2=1 


GSURFACE  7  8  28  27 
GSURFACE  8  9  29  28 


AXES-ORTHOTROPIC  1 
AXES-ORTHOTROPIC  2 
AXES-ORTHOTROPIC  3 
AXES-ORTHOTROPIC  4 
AXES-ORTHOTROPIC  5 
*STRESSTABLE  112 
STRESSTABLE  1  21 
EDATA  /  ENTRIES  EL  TABLE  MAXES 


EL1=1  EL2=4  N0=9 
EL1=1  EL2=4  N0=9 
NODI=101  N0DJ=103  NODK= 
NODI=101  N0DJ=104  NODK= 
NODI=101  N0DJ=105  NODK= 
NODI=101  NODJ=106  NODK= 
NODI=101  N0DJ=107  NODK= 
3  4  5  6  7  8  21  26  27 


EL3  = 
EL3: 
EL3  = 
EL3  = 
EL3^ 
EL3^ 
EL3; 
EL3^ 


102 
102 
102 
102 
102 


N0DES=27 
N0DES=27 
N0DES=27 
N0DES=27 
NODES =27 
N0DES=27 
N0DES=27 
N0DES=27 


STEP  4  TO 


STEP  4  TO 


STEP  4  TO 


STEP  4  TO 


29 

2 

30 
3 

31 
4 

32 
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LOADS  ELEMENT 

9   2   -3.0E04 
TO 

16   2   -3.0E04 

A 

FIXB  123  LINES  /  8  28 

FIXB  23  SURFACES  /   7  8  28  27  /  8  9  29  28 

A 
A 

EGZONE   NAME=PARENT    /    1 

FRAME   HEADING=UPPER   XSF=1.0    YSF=0.5   XFMAX=22.5   YFMAX=17.0 

MESH   ZONE=PARENT   NODES =0    ELEMENT=1    HIDDEN-DASHED   BCODE=ALL 

A 

ADINA 

A 

END 
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INPUT  STRESS  FN  =  THD3D4 . STR 

INPUT  ELEM.  ANGLE  FN  =  TKD3D4.EL 

INPUT  AREAS  OF  ELEMENTS  FN  =THD3D4.ARE 

OUTPUT  FN  =THD3D4.REL 
OUTPUT  :THD3D4.R£L 

NEL     SX  SY         SZ  SXY         SXZ  SYZ  ANGLE 

1  -0.136E+04  0.660E+05   0.477E+02  -0.669E+04   0.161E+01  -0.203E+02  90.0 

2  -0.220E+04  0.199E+05   0.496E+02  -0.279E+04  -0.422E+01  -0.381E+02  75.0 

3  -0.220E+04  0.199E+05   0.496E+02  -0.279E+04   0.422E+01  0.381E+02  75.0 

4  -0.136E+04  0.660E+05   0.477E+02  -0.669E+04  -0.161E+01  0.203E+02  90.0 

5  0.322E+04  0.725E+05   0.120E+03  -0.688E+04   0.267E+02  0.119E+02  90.0 

6  0.326E+04  0.291E+05   C.119E+03  -0.245E+03   0.105E+01  0.110E+02  75.0 

7  0.326E+04  0.291E+05  0.119E+C3  -0.245E+03  -0.105E+01  -0.110E+02  75.0 
6  0.322E+04  0.725E+05  0.120E+03  -0.688E+04  -0.267E+02  -0.119E+02  90.0 
9   0.409E+04  0.343E+05  -0.165E+G3  -0.542E+04   0.774E+02  -0.334E+02  90.0 

10  0.319E+04  0.47BE+04  -0.113E+03  -0.427E+04   0.115E+02  0.387E+01  75.0 

11  G.319E+04  0.478E+04  -0.113E+03  -0.427E+04  -0.115E+02  -0.387E+01  75.0 

12  0.4C9E+04  0.343E+05  -0.165E+03  -0.542E+04  -0.774E+02  0.334E+02  90.0 

13  0.168E+04  0.145E+05  -0.985E+02  0.181E+04  -0.421E+02  -0.409E+02  90.0 

14  0.376E+04  0.240E+05  -0.156E+03  0.792E+04   0.977E+01  -0.744E+01  75.0 

15  0.376E+04  0.240E+05  -0.156E+03  0.792E+04  -0.977E+01  0.744E+01  75.0 

16  0.16EE+04  G.145E+05  -0.985E+02  0.181E+04   0.421E+02  0.409E+02  90.0 

17  0.132E+04  0.444E+05   0.149E+03  -0.180E+04  -0.172E+02  0.362E+02  90.0 

18  0.271E+04  0.301E+05   0.152E+03  0.533E+04   0.51BE+01  0.432E+02  '   75.0 

19  0.271E+04  0.3C1E+05   0.152E+C3  0.533E+04  -0.51BE+01  -0.432E+02  75.0 

20  0.132E+04  0.444E-^05   0.149E+03  -O.ieOE+04   0.172E+02  -0.362E+02  90.0 

21  -0.342E+02  0.607E+05   0.257E+02  -0.126E+04  -0.969E+01  0.169E+02  90.0 

22  0.234E+04  0.458E+05   0.148E+02  0.948E+04   0.214E+01  0.727E+01  75.0 

23  0.234E+04  0.45BE+05   C.148E+02  0.948E+04  -0.214E+01  -0.727E+01  75.0 

24  -0.342E+02  0.6C7E+05   0.257E+02  -0.126E+04   0.969E+01  -0.169E+02  90.0 

25  -0.440E+04  0.238E+05   0.169E+03  -0.125E+04  -0.836E+01  0.377E+02  90.0 
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26  -0.456E+04  0.950E+04   0.196E+03   0.298E+03  -0.589E+01  -0.127E+01  75.0 

27  -0.456E+04  0.950E+04   0.196E+03   0.29BE+03   0.589E+01   0.127E+01  75.0 
21  0.238E+05  0.169E+03  -0.125E+04   0.836E+01  -0.377E+02  -0.469E-02  90.0 

29  -0.410E+04  0.265E+05  -0.145E+03  -0.193E+04  -0.202E+02   0.241E+02  90.0 

30  -0.447E+04  0.858E+04  -0.126E+03  -0.600E+03  -0.943E+01  -0.503E+01  75.0 

31  -0.447E+04  0.858E+04  -0.126E+03  -0.600E+03   0.943E+01   0.503E+01  75.0 

32  -0.410E+04  0.265E+05  -0.145E+03  -0.193E+04   0.202E+02  -0.241E+02  90.0 


NEL 


SI 


S2 


S3 


S6 


S5 


S4 


1 

0 

660E+05 

-0 

136E+04 

0 

477E+02 

0 

669E+04 

-0 

203E+02 

-0 

161E+01 

2 

0 

171E+05 

0 

677E+03 

0 

496E+02 

0 

795E+04 

-0 

379E+02 

-0 

578E+01 

3 

0 

171E+05 

0 

677E+03 

0 

496E+02 

0 

795E+04 

0 

379E+02 

0 

578E+01 

4 

0 

660E+05 

-0 

136E+04 

0 

477E+02 

0 

669E+04 

0 

203E+02 

0 

161E+01 

5 

0 

725E+05 

0 

322E+04 

0 

120E+03 

0 

688E+04 

0 

119E+02 

-0 

267E+02 

6 

0 

272E+05 

0 

511E+04 

0 

119E+03 

0 

666E+04 

0 

109E+02 

0 

184E+01 

7 

0 

272E+C5 

0 

511E+04 

0 

119E+03 

0 

666E+04 

-0 

109E+02 

-0 

184E+01 

8 

0 

725E+05 

0 

322E+04 

0 

120E+03 

0 

688E+04 

-0 

119E+02 

0 

267E+02 

9 

0 

343E+05 

0 

409E+04 

-0 

165E+03 

0 

542E+04 

-0 

334E+02 

-0 

774E+02 

10 

0 

254E+04 

0 

543E+04 

-0 

113E+03 

0 

410E+04 

0 

671E+01 

-0 

101E+02 

11 

0 

254E+04 

0 

543E+04 

-0 

113E+03 

0 

410E+04 

-0 

671E+01 

0 

101E+02 

12 

0 

343E+05 

0 

40SE+04 

-0 

165E+03 

0 

542E+04 

0 

334E+02 

0 

774E+02 

13 

0 

145E+05 

0 

168E+04 

-0 

985E+02 

-0 

181E+04 

-0 

409E+02 

0 

421E+02 

14 

0 

266E+05 

0 

116E+04 

-0 

156E+03 

-0 

180E+04 

-0 

465E+01 

-0 

114E+02 

15 

0 

266E+05 

0 

116E+04 

-0 

156E+03 

-0 

180E+04 

0 

465E+01 

0 

114E+02 

16 

0 

145E+05 

0 

168E+04 

-0 

985E+02 

-0 

181E+04 

0 

409E+02 

-0 

421E+02 

17 

0 

444E+05 

0 

132E+04 

0 

149E+03 

0 

180E+04 

0 

362E+02 

0 

172E+02 

18 

0 

309E+05 

0 

1B8E+04 

0 

152E+03 

0 

223E+04 

0 

430E+02 

0 

617E+01 

19 

0 

309E+05 

0 

188E+04 

0 

152E+03 

0 

223E+04 

-0 

430E+02 

-0 

617E+01 

20 

0 

444E+05 

0 

132E+04 

0 

149E+03 

0 

180E+04 

-0 

362E+02 

-0 

172E+02 

21 

0 

607E+05 

-0 

342E+02 

0 

257E+02 

0 

126E+04 

0 

169E+02 

0. 

969E+01 
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22  0.476E+05  0.507E+03   0.148E+02  0.265E+04  0.757E+01  -0.187E+00 

23  0.476E+05  0.507E+03   0.148E+02  0.265E+04  -0.757E+01  0.187E+00 

24  0.607E+05  -0.342E+02   0.257E+02  0.126E+04  -0.169E+02  -0.969E+01 

25  0.238E+05  -0.440E+04   0.169E+03  0.125E+04  0.377E+02  0.836E+01 

26  0.870E+04  -0.377E+04   0.196E+03  0.326E+04  -0.276E+01  0.536E+01 

27  0.870E+04  -0.377E+04   0.196E+03  0.326E+04  0.276E+01  -0.536E+01 

28  0.169E+03  0.238E+05  -0.125E+04  -0.836E+01  -0.468E-02  0.377E+02 

29  0.265E+05  -0.410E+04  -0.145E+03  0.193E+04  0.241E+02  0.202E+02 

30  0.741E+04  -0.330E+04  -0.126E+03  0.378E+04  -0.730E+01  0.781E+01 

31  0.741E+04  -0.330E+04  -0.126E+03  0.378E+04  0.730E+01  -0.781E+01 

32  0.265E+05  -0.410E+04  -0.145E+03  0.193E+04  -0.241E+02  -0.202E+02 

ALFA  :    5.000000 

NEL      Rl  R2  R3  R6  R5  R4          RE 

1  0.993E+00  0.100E+01   0.100E+01  0.100E+01  0.100E+01  0.668E+00   0.663E+00 

2  0.100E+0I  0.1OOE+O1   0.100E+01  0.100E+01  0.100E+01  0.384E+00   0.384E+00 

3  0.100E+0I  O.IOOE+OI   0.100E+01  0.100E+01  0.100E+01  0.384E+00   0.384E+00 

4  0.993E+00  0.100E+01   O.IOOE+OI  0.100E+01  0.100E+01  0.668E+00   0.663E+00 

5  0.992E+00  0.906E+00   0.1OOE+01  0.100E+01  C.IOOE+Ol  0.735E+00   0.661E+00 

6  C.IOOE+Ol  0.372E+00   O.IOOE+OI  0.100E+01  0.100E+01  0.769E+00   0.286E+00 

7  0.100E+01  0.372EJ-00   0.100E+01  0.100E+01  O.IOOE+OI  0.769E+00   0.286E+00 

8  0.992E+00  0.906E+00   0.100E+01  0.100E+01  0.100E+01  0.735E+00   0.661E+0Q 

9  0.100E+01  0.614E+00   O.IOOE+OI  0.100E+01  0.100E+01  0.869E+00   0.533E+00 

10  0.100E+01  0.133E+00   O.IOOE+OI  0.100E+01  0.100E+01  0.966E+00   0.129E+00 

11  0.100E+01  0.133E+00   0.100E+01  0.100E+01  O.IOOE+OI  0.966E+00   0.129E+00 

12  0.100E+01  0.614E+00   C.lOOE+01  0.100E+01  0.100E+01  0.869E+00   0.533E+00 

13  0.100E+01  0.996E+00   O.IOOE+OI  0.100E+01  O.IOOE+OI  0.100E+01   0.996E+00 

14  0.100E+01  0.999E+00   O.IOOE+OI  0.100E+01  0.100E+01  0.100E+01   0.999E+00 

15  O.IOOE+OI  0.999E+00   O.IOOE+OI  O.IOOE+OI  O.IOOE+OI  0.100E+01   0.999E+00 

16  0.100E+01  0.996E+00   O.IOOE+OI  0.100E+01  0.100E+01  O.IOOE+OI   0.996E+00 
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17  0.999E+00  0.998E+00  0.100E+0I  O.IOOE+Ol  O.IOOE+Ol  0.999E+00  0.997E+00 

18  O.IOOE+Ol  0.990E+00  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.998E+00  0.988E+00 

19  O.IOOE+Ol  0.990E+00  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.998E+00  0.988E+00 

20  0.999E+00  0.998E+00  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.999E+00  0.997E+00 

21  0.997E+00  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.997E+00 

22  0.999E+00  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.997E+00  0.996E+00 

23  0.999E+00  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.997E+00  0.996E+00 

24  0.997E+00  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.997E+00 

25  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol 

26  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.989E+00  0.989E+00 

27  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.989E+00  0.989E+00 

28  O.IOOE+Ol  O.OOOE+00  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.OOOE+00 

29  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.999E+00  0.999E+00 

30  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.985E+00  0.985E+00 

31  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.985E+00  0.985E+00 

32  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  0.999E+00  0.999E+00 

TOTAL  REL.     RT1         RT2         RT3         RT6         RT5         RT4  RT 

0.960E+00   O.OOOE+00   O.OOOE+OO  O.OOOE+OO   O.OOOE+OO   O.OOOE+OO  O.OOOE+00 
TOTAL  STRUCTURE  RELIABILITY  =    O.OOOE+00 
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*  ADINA-IN  INPUT  FILE 

A 

a  THM3D4.IN  EIGHT  SYMMETRIC  LAYER  USING  3-D. 

A 

FILEUNITS  LIST=8  L0G=7  ECH0=7 
CONTROL  PLOTUNIT=CM 
COLORS  BCODE=BLUE 

A 

DATABASE  CREATE 
WORKSTATION  DEVICE=0 

A 

HEADING  '  THM3D4.IN;  aaaEIGHT  LAYERS  SOLUTION   90,75  DEG  aaa- 

A 

MASTER  ID0F=000111 

PRINTOUT  VOLUME=MAXIMUM  IPD=1  IPRIC=0  P=STRAINS 

PORTHOLE  FORMATTED=YES  FILE=60 

A 

COORDINATES  /  ENTRIES  NODE     X     Y     Z 

1  -20.    -20.   0.1 

2  0.    -20.   0.1 

3  20.    -20.   0.1 

4  -20.      0.   0.1 

5  0.      0.   0.1 

6  20.      0.   0.1 

7  -20.     20.   0.1 

8  0.     20.   0.1 

9  20.     20.   0.1 

21  -20.    -20.   0. 

22  0.    -20.   0. 

23  20.    -20.   0. 

24  -20.      0.   0. 

25  0.      0.   0. 

26  20.      0.   0. 

27  -20.     20.   0. 

28  0.     20.   0. 

29  20.     20.   0. 

101  5.      0.   0. 

102  0.     10.   0. 

103  5.     10.   0. 

104  15.      2.68  0. 

105  7.68   10.    0. 

106  15.     10.    0. 

107  15.    -10.    0. 

A=====r===r========================================== 

-"■NOTE  THE  MAXES  MEAN  :  1=90DEG  2  =  15  3  =  75  4  =  45  5  =  -45 

A==================r================================== 

MATERIAL  1  ORTHOTROPIC  181. E05  10.3E05  10.3E05  0.0159  0.0159  0.28, 

GAB=7.17E05  7.17E05  7.17E05 

MATERIAL  2  ORTHOTROPIC  53.8E05  17.9E05  17.9E05  0.083  0.083  0.25, 

GAB=8.6E05  8.6E05  8.6E05 

A 

SYSTEM  1  CYLINDRIC  X=0  Y=0  Z=0  PHI=0  THETA=-90.  XSI=90. 

COORDINATES  /  ENTRIES  NODES  R  THETA  XL 

10  10.   0.  0.1 

11  10.   45.  0.1 

12  10.   90.  0.1 

13  10.   135.  0.1 

14  10.   180.  0.1 

15  10.   225.  0.1 
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16 
17 
18 
30 
31 
32 
33 
34 
35 
36 
37 
38 


10. 

10. 

10. 

10. 

10. 

10. 

10, 

10. 

10. 

10 

10 

10 


270. 

315. 

360. 

0. 

45. 

90. 

135, 

180, 

225, 

270, 

315 

360 


0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 


LINE  CYLINDRIC  11  10  EL  =  1  MIDNODES=l 
LINE  CYLINDRIC  12  11  EL=1  MIDNODES=l 


LINE  CYLINDRIC  13  12  EL=1 
LINE  CYLINDRIC  14  13  EL=1 


NC  =  A 
NC  =  A 
MIDN0DES=1  NC=A 
MIDN0DES=1  NC  =  A 


LINE  CYLINDRIC  15  14  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  16  15  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  17  16  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  18  17  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  31  30  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  32  31  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  33  32  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  34  33  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  35  34  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  36  35  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  37  36  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  38  37  EL=1  MIDNODES=l  NC=A 

A 

EGROUP  1  THREEDSOLID  MATERIALS  TABLES 
GVOLUME  7  4  IB  17  27  24  38  37  EL1=1  EL2=1 
GVOLUME  4  1  11  10  24  21  31  30  EL1  =  1  EL2=1 
GVOLUME  1  2  12  11  21  22  32  31  EL 1=1  EL2=1 
GVOLUME  2  3  13  12  22  23  33  32  EL1=1  EL2  =  1 
GVOLUME  3  6  14  13  23  26  34  33  EL1  =  1  EL2=1 
GVOLUME  6  9  15  14  26  29  35  34  EL1=1  EL2=1 
GVOLUME  9  8  16  15  29  28  36  35  EL 1=1  EL2=1 
GVOLUME  8  7  17  16  28  27  37  36  EL1=1  EL2=1 
GSURFACE  7  8  28  27    EL1=1  EL2=4  N0=9 
GSURFACE  8  9  29  28    EL1=1  EL2=4  N0=9 
AXES-ORTHOTROPIC  1  NODI=101  N0DJ=103  NODK 
AXE5-0RTH0TR0PIC  2  N0DI=101  N0DJ=104  NODK 

NODI- 101  NODJ=105  NODK 
NODI=101  N0DJ=106  NODK 
N0DI=101  N0DJ=107  NODK 
3  4  5  6  7  8  21  26  27 


AXES-ORTHOTROPIC 

AXES-ORTHOTROPIC 

AXES-ORTHOTROPIC 

ASTRESSTABLE  1  1 

STRESSTABLE  1   21 

EDATA  /  ENTRIES  EL  TABLE  MAXES 


EL3  =  4 

EL3  =  4 
EL3  =  4 
EL3  =  4 
EL3  =  4 
EL3  =  4 
EL3  =  4 
EL3  =  4 


102 
102 
102 
102 
102 


N0DES=27 
N0DES=27 
NODES= 27 
N0DES=27 
N0DES=27 
N0DES=27 
N0DES=27 
NODES =27 


-  STEP  4  TO 


STEP  4  TO 


STEP  4  .TO 


STEP  4  TO 


29 
2 

30 
3 

31 
4 
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32 


LOADS   ELEMENT 
TO 


9      2 
16      2 


•3.0E04 
-3.0E04 


FIXB    123    LINES    /    B   28 

FIXB    23    SURFACES    /       7    8  28  27  /    8    9  29    28 

A 
A 

EGROUP  2  THREEDSOLID  MATERIAL=2  TABLES 

GVOLUME  11  12  5  5  31  32  25  25  EL1  =  1  EL2  =  1 

5  5  32  33  25  25  EL1=1  EL2=1 

5  5  33  34  25  25  EL1=1  EL2=1 

5  5  34  35  25  25  EL1=1  EL2=1 

5  5  35  36  25  25  EL1=1  EL2=1 

5  5  36  37  25  25  EL1  =  1  EL2=1 

5  5  37  38  25  25  EL1=1  EL2=1 

5  5  30  31  25  25  EL1=1  EL2=1 


GVOLUME  12  13 
GVOLUME  13  14 
GVOLUME  14  15 
GVOLUME  15  16 
GVOLUME  16  17 
GVOLUME  17  18 
GVOLUME  10  11 


AXES-ORTHOTROPIC  1  NODI=101  NODJ=103  NODK  = 


AXES-ORTHOTROPIC  2 
AXES-ORTHOTROPIC  3 
AXES-ORTHOTROPIC  4 
AXES-ORTHOTROPIC  5 
ASTRESSTABLE  112 
STRESSTABLE  1  21 
EDATA  /  ENTRIES  EL  TABLE  MAXES 


N0DI=101  N0DJ=104'N0DK= 
NODI=101  NODJ=105  NODK= 
NODI=101  N0DJ=106  NODK= 
NODI=101  N0DJ=107  NODK' 
3  4  5  6  7  8  21  26  27 


EL3  =  4 

NODES= 

=  27 

EL3  =  4 

NODES= 

:27 

EL3  =  4 

NODES^ 

:27 

EL3  =  4 

NODES: 

=  27 

EL3  =  4 

NODES: 

=  27 

EL3  =  4 

NODES: 

=  27 

EL3  =  4 

NODES: 

=  27 

EL3  =  4 

NODES: 

=  27 

102 

102 

102 

102 

102 

STEP  4  TO 


STEP  4  TO 


STEP  4  TO 


STEP  4  TO 


29 
2 

30 
3 

31 
4 

32 


A 
A 

EGZONE  NAME=PARENT  /  1 

EGZONE  NAME=PATCH  /  2 

FRAME  HEADING=UPPER  XSF=1.0  YSF=0.5  XFMAX 

MESH  ZONE=PARENT  NODES=0  ELEMENT=1  HIDDEN 

FRAME  HEADING=UPPER   XSF=1.0   YSF=0.5   XFMAX 

MESH  ZONE=PATCH  NODES=0  ELEMENT=1  HIDDEN= 

A 

ADINA 

A 

END 


=22.5   YFMAX=17.0 
=DASHED   BCODE=ALL 
=22.5   YFMAX=17.0 
DASHED   BCODE=ALL 
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C  NEL 

C  NELP 

C  SX,SY, . . . ,SYZ 

C  THETA 

C  S1,S2, . . .  S6 

C  R1,R2 ,R6 

C  RT1,RT2, . . .RT6 

C  RE 

C  RT 

C  ALF 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PROGRAM  TRANS3 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

C     THIS  PROGRAM  TRANFORMS  THE  STRESSES  OUTPUT  FROM  ADINA, 
C     EXPRESSED  IN  THE  GLOBAL  STRUCTURE  COORDINATE  SYSTEM,  TO 
C     THE  PRINCIPAL  MATERIAL  COORDINATE.  AND  THEN,  CALCULATES  THE 
C     RELIABILTY  PER  STRESS  COMPONENT  AND  PER  ELEMENT  AND  FINALLY 
C     EVALUATES  THE  TOTAL  RELIABILITY.  ALL  THAT  BY  CALLING  THE 
C     SUBROUTINE  HEREIN. 

#  OF  WHOLE  SRUCTURE  ELEMENTS. 

#  OF  PARENT  STRUCTURE  ELEMENTS 
THE  STRESS  IN  GLOBAL  COORDINATE  SYSTEM. 
THE  LAYUP  ANGLE  PER  ELEMENT. 

THE  STRESS  IN  THE  MATERIAL  PRINCIPAL  COORDINATE. 
THE  RELIABILITY  PER  STRESS  COMPONENT. 
THE  TOTAL  RELIABILTY  OF  STRUCTURE  PER  COPMPONENT. 
THE  RELIABILITY  PER  ELEMENT 
THE  TOTAL  RELIABILITY. 
THE  SHAPE  FUNCTION  PARAMER  FOR  WEI BULL 

C      BEFORE  RUNNING  THE  PROGRAM  VERIFY  IN  THE  PROGRAM  THE  ANGLE  THETA 
C      INPUT  AND  THE  #  OF  ELEMENT. AND  ALSO  VERIFY  THE  MATERIAL  PROEPRTIES 
C     GIVEN  IN  SUBROUTINE  BETA. 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

INTEGER  NEL 

PARAMETER  ( NEL=64 ,NELP=32 ,PI  =  3.1415927  ) 

PARAMETER    (ROWS=100 , C0LS=6 ,COLSl=7 ) 

INTEGER  ITHETA(NEL) 

REAL*8  A(ROWS,COLS) ,B( ROWS , COLS ) , C ( ROWS ,COLSl ) 

REAL  SX(NEL) ,SY(NEL) ,SZ(NEL) , SXY ( NEL ) , SXZ ( NEL ) ,SYZ(NEL) 

REAL  L,M, THETA (NEL) ,THETAF(NEL) ,ALF 

CHARACTERS  2  0  FNAME , FNOUT , FNAME1 , FNAME2 

WRITE  (5,*)  'ENTER  INPUT  STRESS  FN   ?' 

READ  ( 5 , ' ( A ) ' )  FNAME 

WRITE  (5,A)  'INPUT  STRESS  FN  =  ', FNAME 

OPEN  (UNIT=15,FILE=FNAME,STATUS='OLD' ) 

WRITE  (5, *)  'ENTER  INPUT  ELEM.  ANGLE  FN?' 

READ  (5, ' (A) ' )  FNAME2 

WRITE  (5, A)  'INPUT  ELEM.  ANGLE  FN  =  ', FNAME 2 

OPEN  (UNIT=16,FILE=FNAME2,STATUS='OLD' ) 

WRITE  (5,  A)  'ENTER  AREAS  OF  ELEMENTS  FN  ?' 

READ  (5, ' (A) ' )  FNAME1 

OPEN  (UNIT=17,FILE=FNAMEl,STATUS='OLD' ) 

WRITE  (5, A)  '  ENTER  OUTPUT  FN  ?' 

READ  (5, ' (A) ' )  FNOUT 

OPEN  (UNIT=13,FILE=FNOUT, STATUS* 'NEW' ) 

WRITE  (13,  A)  'INPUT  STRESS  FN  =  ', FNAME 

WRITE  (13,  A)  'INPUT  ELEM.  ANGLE  FN  ■  '  ,FNAME2 

WRITE  ("13, A)  'INPUT   AREAS  OF  ELEMENTS  FN  =',FNAME1 

WRITE  (13, A)  '  OUTPUT  FN  =', FNOUT 

A. 

A  INPUT  OF  ANGLE  (THETA)  FOR  EA.  ELEMENT  ; 

A 

DO  20  1=1, NEL 

READ  (16, A)  N,I2,I3,I4,I5,I6,ITHETA(I) , IB , A9 ,A10 , 111 , 
&  112,113,114,115,116,117,118,119 

IF. (ITHETA(I) .EQ.l)  THETA(I)  =  9  0.0 
IF  (ITHETA(I) .EQ.3)  THETA(I)  =  7  5.0 
WRITE  (5,25)  N,THETA(I) 
THETAF(I)  =  THETA(I)*  PI/ 180.0 
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20     CONTINUE  :. 

A 

WRITE  (13, A)  'OUTPUT  :',FNOUT 

A 

a TRANSFORMATION  OF  STRESSES  TO  PRINCIPAL  AXES  STRESS  ; 

A 

WRITE  (13,11)  'NEL' ,'SX' ,'SY' ,  ' SZ ',' SXY ',' SXZ ',' SYZ ', 'ANGLE' 

DO  55  1=1, NEL 

READ  (15, *)  IEL,NOD,SX(I) ,SY(I) ,SZ(I) ,SXY(I) ,SXZ(I) ,SYZ(I) 

THETA(I)  =  THETAF(I)*180.0  /  PI 

WRITE  (13,61)  IEL,SX(I) ,SY(I) ,SZ(I) ,SXY(I) , SXZ ( I ) ,SYZ(I) , 
&  THETA(I) 


L=COS(THETAF(I) ) 
M=SIN(THETAF(I) ) 

A(I,1)=  SX(I)ML**2)  +  SY(I)MM**2)  +  2*SXY( I ) *L*M 

Ad, 2)=  SX(I)MM**2)  +  SY(I)ML**2)  -  2*SXY(  I )  *L*M 

A(I,3)=  SZ(I) 

A(I,6)=  -SX(I)*L*M  +  SY(I)*M^L  +  SXY(  I )  ML**2  -  M**2) 

A(I,5)=  SYZ(I)*M  +  SXZ(I)*L 

A(I,4)=  SYZ(I)*L  -  SXZ (I  MM 
55    CONTINUE 

WRITE  (13,10)  'NEL' , 'SI' ,'S2' ,'S3' , 'S6' ,'S5' ,'S4' 
DO  80  1=1, NEL 

WRITE  (13,60)  I,A(I,1) ,A(I,2) ,A(I,3) ,A(I,6) ,A(I,5) ,A(I,4) 
80    CONTINUE 

A 

^SUBROUTINES  FOR  CALCULATING  THE  RELIABILITY  ; 
A 

CALL  BETA ( A, B, NEL) 

WRITE  (5,  *)  'INPUT  ALFA' 

READ   (5, A)  ALF 

WRITE  (13,*)  'ALFA  : ' ,ALF 

CALL  ALFA ( A, B, NEL, ALF) 

CALL  RELI(A,B,NEL) 

CALL  ELRE(B,NEL) 

A 

10  FORMAT  ( // ,1X,A10,6(A7,4X)  /  1X,80('-')) 

11  FORMAT  ( // ,1X,A10,7(A7,4X)  /  1X,B0('-')) 
15     FORMAT  (IX, 'THETA(  '  ,12,  '  )=  ') 

25     FORMAT  (  IX, 'THETA  (  '  ,  12  ,  '  )  =  ',F6.D 

60  FORMAT  ( / , 4X , 16 , 6E11 . 3 ) 

61  FORMAT  ( / ,4X,I6,6E11.3,3X,F6.1) 

A 

STOP 
END 

A++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
AAAAAAAAAAAAA'AAAAAAAAAAAAAAAAA 

SUBROUTINE  BETA( A, B,NEL ) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  ( ROWS=100 , COLS =6 ) 
REAL*8  A(ROWS, COLS) ,B(ROWS, COLS) 
REAL  X(COLS) ,X1C,X2C,X3C 

A 

*  PLY  STRESS  -  STRENGTH, RATIO  CALCULATION  : 

A 


WRITE  (13,10)  'NEL'  , 'SRI'  , ' SR2 '  ,  'SR3'  ,  ' SR6 '  , ' SR5 '  , ' SR4 
*A.  FOR  THE  PARENT  STRUCTURE, 

A 
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DO  90  I=1,NELP 
:  STRENGTH  PROPERTIES  FOR  GRAPHITE  EPOXY, 


X(l)   =  15.0E4 
X(2)   =  0.4E4 
X(3)   =  X(2) 
X(6)   =  0.68E4 
X(4)   =  X(6) 
X(5)   =  X(6) 
X1C  =  -15.0E4 
X2C  =  -2.46E4 
X3C  =  X2C 
IF  (A( 1,1) .LT.O) 
IF  (A( I, 2) .LT.O) 
IF  (A( I, 3) .LT.O) 
DO  80  J=1,C0LS 

B(I,J)  =  ABS(A(I 

80    CONTINUE 

WRITE  (13,60)  I,B(I 

9  0    CONTINUE 

*B.  FOR  THE  PATCH, 
A 

N=NELP+1 

DO  100  I=N,NEL 
C  STRENGTH  PROPERTIES 
C 


X(l) 

= 

XI C 

X(2) 

= 

X2C 

X(3) 

= 

X3C 

J)  /  X(J) ) 


1),B(I,2),B(I,3),B(I,6),B(I,5),B(I,4) 


FOR  E-GLASS  EPOXY 


95 

100 

10 

60 


X(l) 

X(2) 

X(3) 

X(6) 

X  ( 4  j 

X(5) 

X1C  = 

X2C  = 

X3C  = 

IF  (A 

IF  (A 

IF 

95  J  =  l 

B(I,J) 
CONTINUE 
WRITE  (13 
CONTINUE 

FORMAT  ( // ,1X,A10,6(A7,4X) 
FORMAT  ( /  ,4X,I6,6EI1.3) 
RETURN 
END 


e: 


=  10.34E4 
=  0.276E4 
=  X(2) 
=  0.414E4 
=  X(6) 
=  X(6) 
-10.3E4 
-1.38E4 
X2C 

; i , i ) . lt 

;  1 ,  2 ) . LT 
( A ( I , 3 ) . LT 
COLS 
=  ABS(A(I 


0) 
0) 
0) 


X( 

x< 

X( 


1) 

2) 
3) 


=  X1C 
=  X2C 
=  X3C 


,J)  /  X(J) ) 


60)  I,B(I,1),B(I,2),B(I,3),B(I,6),B(I,5),B(I,4) 


/  lX,eO( '-' ) ) 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  ALFA( A,B,NEL , ALF) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  (ROWS=100 ,C0LS=6) 
REAL*8  AtROWS, COLS) ,B(ROWS, COLS) 
REAL  AREA(IOO) ,AMIN 

A 

*  PLY  STRESS  -  STRENGTH, RATIO  RISED  BY  ALFA 

A 


CALCULATION 


WRITE  (13,10)  'NEL' , 'VI' , 'V2' , 'V3' , ' V6 ' , 'V5' , 'V4' 

DO  90  1=1, NEL 

READ  (17, A)  IIEL,AREA(I) ,AMIN 
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AMIN=400. 

WRITE  (5,95)  IIEL,AREA(I) ,AMIN 

WRITE  (3,95)  IIEL,AREA(I) ,AMIN 

DO  80  J=l,COLS 
A  A(I,J)  =  B(I,J)**ALF 

A(I,J)  =  (B(I,J)^AALF)^AREA(I) /AMIN 
80    CONTINUE 

WRITE  (13,60)I,A(I,1),A(I,2),A(I,3),A(I,6),A(I,5),A(I,4) 
90     CONTINUE 

10     FORMAT  ( // ,1X,A10,6(A7,4X)  /  1X,80('-')) 
60     FORMAT  ( / , 4X , 16 , 6E11 . 3 ) 
95    FORMAT  ( / / IX, ' AREA( '  , 12  ,  ' )  =  ',2F10.2) 

RETURN 

END 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  RELI ( A , B , NEL) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  ( ROWS=100 ,C0LS=6 ) 
REALMS  A(ROWS, COLS) ,B(ROWS, COLS) 

A 

a  PLY  STERSS  TENSOR  RELIABILITY  CALCULATION  (WEIBULL)  : 
A : 

WRITE  (13,10)  'NEL' , 'Rl' , 'R2' , 'R3' , 'R6' , 'R5' , 'R4' 

DO  9  0  1=1, NEL 

DO  80  J=l,COLS 

B(I,J)  =  EXP ( -A (I, J) ) 
80     CONTINUE 

WRITE  (13,60)  I,B(I,1) ,B(I,2) ,B(I,3) ,B(I,6) ,B(I,5) ,B(I,4) 
90     CONTINUE 

10    FORMAT  ( // ,1X,A10,6(A7,4X)  /  1X,80('-')) 
60     FORMAT  ( / , 4X, 16 , 6E11 . 3 ) 

RETURN 

END 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

SUBROUTINE  ELRE(E,NEL) 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PARAMETER  ( ROWS  =  100 , COLS  =  6 , COLS  1  =  7 ) 
REALAB  B(ROWS,COLS) , C ( ROWS , COLS1 ) ,RT 

A 

^ELEMENTS  RELIABILITY  CALCUL.,  AS  WELL  AS  "FIBER"  (Rl)  AND  "MATRIX" 
^RELIABILITY  CALCUL. &  TOTAL  STRUCTURE  RELIABILITY  CALCUL. 

A 

WRITE  (13,10)  'NEL'  , ' Rl '  , ' R2 '  , ' R3 '  , ' R6 '  ,  ' R5 '  , ' R4 '  , ' RE ' 

RT  =1.0 

C(NEL+1,1)=1.0 

DO  9  0  1=1, NEL 

C(I,C0LS1)  =  1.0 

DO  80  J=l,COLS 

C(I,J)=B(I,J) 

C(I,C0LS1)  =  C(I,C0LS1)  a  C(I,J) 

C(NEL+1,J)  =  C(NEL+1,J)  A  C(I,J) 
80     CONTINUE 

RT  =  RT  a  C(I,C0LS1) 

WRITE  (5,60)  I,C(I,1) ,C(I,2) ,C(I,3) ,C(I,4) ,C(I,5) ,C(I,6) ,C(I,7) 
WRITE  (13,60)  I,C(I,1) ,C(I,2) ,C(I,3) ,C(I,4) ,C(1,5) ,C(I,6) ,C(I,7 
90     CONTINUE 

WRITE  (13,10)  ' TOTAL  REL . : ' , ' RT1 ' , ' RT2 ' , ' RT3 ' , ' RT6 ' , ' RT5 ' , 
&  'RT4' , 'RT' 

WRITE  (13,65)  C(NEL+1,1) ,C(NEL+1,2) ,C(NEL+1,3) ,C(NEL+1,4) , 
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&  C(NEL+1,5) ,C(NEL+1,6) ,RT 

WRITE  (5,70)  RT 

WRITE  (13,70)  RT 
10     FORMAT  ( //,1X,A10,7(A7,4X)  /  1X,95('-')) 
60     FORMAT  ( / , 4X , 16 , 7E11 . 3 ) 
65     FORMAT  ( / , 11X, 7E11 . 3 ) 
7  0     FORMAT  (//, IX, 'TOTAL  STRUCTURE  RELIABILITY  =  ' ,E11.3  /1X,40('=')) 

RETURN 

END 
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INPUT   STRESS    FN    =    THM3D4 . STR 

INPUT   ELEM.    ANGLE   FN  =    THM3D4.EL 

INPUT     AREAS    OF  ELEMENTS   FN    =THM3D4.ARE 

OUTPUT   FN    =THM3D4.REL 
OUTPUT    :THM3D4.REL 

NEL             SX  SY  SZ                    SXY                     SXZ  SYZ  ANGLE 

1  -0.277E+03  0.391E+05  0.187E+02    -0.235E+04       O.909E+00  0.622E+01  90.0 

2  0.279E+03  0.209E+05  C.160E+02      0.236E+04      0.849E+00  "0.604E+01  75.0 

3  0.279E+03  0.209E+05  0.160E+02      0.236E+04    -0.849E+00  -0.604E+01  75.0 

4  -0.277E+03  0.391E+05  0.187E+02    -0.235E+04    -0/909E+00  -0.622E+01  90.0 

5  -0.278E+03  0.391E+05  0.248E+01    -0.235E+04       0.399E+00  0.675E+01  90.0 

6  0.279E+03  0.209E+05  0.217E+01       0.235E+04       0.361E+00  0.683E+01  75.0 

7  0.279E-1-03  0.209E+05  0.217E+01       0.235E+04    -0.361E+00  -0.683E+01  75.0 

8  -0.278E+03  0.391E+05  0.248E+01    -0.235E+04    -0.399E+00  -0.675E+01  90.0 

9  -0.278E+03  0.391E+05  0.653E-01    -0.235E+04      0.552E+01  -0.216E+02  90.0 

10  0.278E+03  0.209E+05  -0.746E+00      0.235E+04       0.553E+01  -0.216E+02  75.0 

11  0.278E+03  0.209E+05  -0.746E+00       0.235E+04    -0.553E+01  0.216E+02  75.0 

12  -0.278E+03  0.391E+05  0.653E-01    -0.235E+04    -0.552E+01  0.216E+02  90.0 

13  -0.276E+03  0.391E+05  0.113E+00    -0.235E+04       0.559E+01  -0.210E+02  90.0 

14  0.278E+03  0.209E+05  -0.692E+00       0.235E+04       0.559E+01  -0.210E+02  75.0 

15  0.278E+C3  0.209E+05  -0.692E+00       0.235E+04    -0.559E+01  0.210E+02  75.0 

16  -0.278E+03  0.391E+05  0.113E+00    -0.235E+04    -0.559E+01  0.210E+02  90.0 

17  -0.278E+03  0.391E+05  0.250E+01    -0.235E+04    -0.992E+00  -0.434E+01  90.0 

18  0.279E+03  0.209E+05  0.218E+01       0.235E+04    -0.967E+00  -0.438E+01  75.0 

19  0.279E+03  0.209E+05  0.218E+01       0.235E+04       0.967E+00  0.438E+01  75.0 

20  -0.278E+03  0.391E+05  0.250E+01    -0.235E+04      0.992E+00  0.434E+01  90.0 

21  -0.278E+03  0.391E+05  0.190E+02    -0.236E+04    -0.608E+00  -0.566E+01  90.0 

* 

22  0.277E+03  0.209E+05  0.163E+02      0.235E+04    -0.550E+00  -0.573E+01  75.0 

23  0.277E+03  0.209E+05  0.163E+02       0.235E+04       0.550E+00  0.573E+01  75.0 

24  -0.278E+03  0.391E+C5  0.190E+02    -0.236E+04       0.608E+00  O.566E+01  90.0 

25  -0.318E+03  0.390E+05  -0.115E+03    -0.235E+04    -0.598E+01  -0.109E+01  90.0 
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26  0.243E+03  0.209E+05  -0.982E+02  0.235E+04  -0.607E+01  -0.414E+00  75.0 

27  0.243E+03  0.209E+05  -0.982E+02  0.235E+04  0.607E+01  0.414E+00  75.0 

28  -0.318E+03  0.390E+05  -0.115E+03  -0.235E+04  0.598E+01  0.1O9E+01  90.0 

29  -0.320E+03  0.390E+05  -0.115E+03  -0.235E+04  -0.634E+01  -0.996E+00  90.0 

30  0.241E+03  0.209E+05  -0.980E+02  0.235E+04  -0.621E+01  -0.305E+00  75.0 

31  0.241E+03  0.209E+05  -0.980E+02  0.235E+04  0.621E+01  0.305E+00  75.0 

32  -0.32OE+03  0.390E+05  -0 . 115E+03  -0.235E+04  0.634E+01  0.996E+00  90.0 

1  -0.281E+03  0.391E+05  -0.594E+00  -0.235E+04  0.205E+01  -0.802E+01  90.0 

2  0.275E+03  0.209E+05  -0.107E+01  0.235E+04  0.204E+01  -0.800E+01  75.0 

3  0.275E+03  0.209E+05  -0.107E+01  0.235E+04  -0.204E+01  0.800E+01  75.0 

4  -0.281E+03  0.391E+05  -0.594E+00  -0.235E+04  -0.205E+01  0.802E+01  90.0 

5  -0.281E+03  0.391E+05  -0.646E+00  -0.235E+04  0.206E+01  -0.778E+01  90.0 

6  0.275E+03  0.209E+05  -0.117E+01  0.235E+04  0.206E+01  -0.781E+01  75.0 

7  0.275E+03  0.209E+05  -0.117E+01  0.235E+04  -0.206E+01  0.7B1E+01  75.0 

8  -0.281E+03  0.391E+05  -0.646E+00  -0.235E+04  -0.206E+01  0.778E+01  90.0 

9  -0.281E+03  0.391E+05   0.320E+00  -0.235E+04  -0.370E+00  -0.167E+01  90.0 

10  0.275E+03  0.209E+05   0.274E+00  0.235E+04  -0.359E+00  -0.170E+01  75.0 

11  0.275E+03  0.209E+05   0.274E+00  0.235E+04  0.359E+00  0.170E+01  75.0 

12  -0.281E+03  0.3S1E+05   0.320E+00  -0.235E+04  0.370E+00  0.167E+01  90.0 

13  -0.282E+03  0.391E+05   0.641E+01  -0.235E+04  -0.167E+00  -0.211E+01  90.0 

14  0.274E+03  0.209E+05   0.552E+01  0.236E+04  -0.170E+00  -0.218E+01  75.0 

15  C.274E+03  0.209E+05   0.552E+01  0.236E+04  0.170E+00  0.2ieE+01  75.0 

16  -0.282E+03  0.391E+05   0.641E+01  -0.235E+04  0.167E+00  0.211E+01    '   90.0 

17  -0.294E+03  C.391E+05  -0.422E+02  -0.236E+04  -0.238E+01  -0.128E+C1  90.0 
IB   0.263E+03  0.209E+05  -0.361E+02  0.235E+04  -0.229E+01  -0.481E+00  75.0 

19  0.263E+03  0.209E+05  -0.361E+02  0.235E+04  0.229E+01  0.481E+00  75.0 

20  -0.294E+03  0.391E+05  -0.422E+02  -0.236E+04  0.238E+01  0.128E+01  90.0 

21  -0.295E+03  0.390E+05  -0.416E+02  -0.235E+04  -0.202E+01  -0.119E+01  90.0 

22  0.264E+03  0.209E+05  -0.356E+02  0.236E+04  -0.220E+01  -0.446E+00  75.0 

23  0.264E+03  0.209E+05  -0.356E+02  0.236E+04  0.220E+01  0.446E+00  75.0 
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24  -0.295E+03  0.390E+05  -0.416E+02  -0.235E+04   0.202E+01  0.119E+01      90.0 

25  -C.281E+03  0.39IE+05  0.629E+01  -0.235E+04   0.323E+00  0.179E+01      90.0 

26  0.275E+03  0.209E+05  0.535E+01   0.235E+04   0.293E+00  0.211E+01      75.0 

27  0.275E+03  0.209E+05  0.535E+01   0.235E+04  -0.293E+00  -0 . 211E+01      75.0 

28  -0.281E+03  0.391E+05  0.629E+01  -0.235E+04  -0.323E+00  -0.179E+01      90.0 

29  -0.280E+03  0.391E+05  0.293E+00  -0.235E+04   0.130E+00  0.284E+01      90.0 

30  0.276E+03  0.209E+05  0.287E+0C   0.235E+04   0.140E+00  0.243E+01      75.0 

31  0.276E+03  0.209E+05  0.287E+00   0.235E+04  -0.140E+00  -0.243E+01      75.0 

32  -0.280E+03  0.391E+O5  0.293E+00  -0.235E+04  -0.130E+00  -0.284E+01      90.0 

NEL  SI  S2  S3          S6         S5         S4 

1  C.391E+05  -0.277E+03  C.187E+02   0.235E+04   0.622E+01  -0.909E+00 

2  0.207E+05  0.485E+03  0.160E+02   0.313E+04   0.605E+01  0.743E+00 

3  0.207E+C5  0.4e5E+03  0.160E+02   0.313E+04  -0.605E+01  -0.743E+00 

4  0.391E+05  -0.277E+03  0.187E+02   0.235E+04  -0.622E+C1  0.909E+00 

5  C.391E+C5  -C.278E+03  0.248E+01   0.235E+04   0.675E+01  -C.399E+00 

6  C.207E+05  0.486E+03  0.217E+01   0.313E+04   0.669E+01  0.142E+01 

7  C.207E-"-05  0.486E+03  0.217E+01  0.313E+04  -0.669E+01  -C.142E+01 
E  0.391E+O5  -C.278E+03  0.248E+01  0.235E+04  -0.675E+01  0.399E+00 
S  0.391E+05  -0.278E+03  0.653E-0I   0.235E+04  -0.216E+02  -0.552E+01 

10  0.207E+05  0.485E+03  -0.746E+00   0.313E+04  -C.194E+02  -0.109E+02 

11  0.207E+05  C.485E+C3  -C.746E+00   0.313E+04   0.194E+02  0.109E+02 

12  C.3S1E^05  -0.278E+03  0.653E-01   0.235E+04   0.216E+02  0.552E+01 

13  0.391E+05  -0.27eE+03  0.113E+00   C.235E+04  -C.210E+C2  -0.559E+01 

14  C.207EJ-05  0.485E+C3  -0.692E+00   0.313E+04  -0.1B9E+02  -0.108E+02 

15  0.2C7E-G5  0.485E+03  -C.692E+00   0.313E+04   0.189E+02  0.108E+C2 

16  0.391E+05  -0.278E+03  0.113E+00   0.235E+04   0.210E+02  0.559E+01 

17  0.391E+05  -0.278E+03  0.250E+01  0.235E+04  -0.434E+01  0.992E+00 
ie  0.207E+05  0.4e5E+03  0.218E+01  0.313E+04  -0.448E+01  -0.198E+00 
19  0.207E+C5  C.485E+03  0.21BE+01   0.313E+04   0.448E+01  0.198E+00 
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20  0.39IE+05  -0.278E+03   0.250E+01  0.235E+04  0.434E+01  -0.992E+00 

21  0.391E+05  -0.278E+03   0.190E+02  0.236E+04  -0.566E+01  0.608E+00 

22  0.207E+05   0.486E+03   0.163E+02  0.313E+04  -0.568E+01  -0.952E+00 

23  0.207E+05   0.486E+03   0.163E+02  0.313E+04  0.568E+01  0.952E+00 

24  0.391E+05  -0.278E+03   0.190E+02  0.236E+04  0.566E+01  -0.608E+00 

25  0.390E+05  -0.318E+03  -0.115E+03  0.235E+04  -0.109E+01  0.598E+01 

26  0.207E+05   0.450E+03  -0.982E+02  0.313E+04  -0.197E+01  0.575E+01 

27  0.207E+05   0.450E+03  -0.982E+02  0.313E+04  0.197E+01  -0.575E+01 

28  0.390E+05  -0.318E+03  -0.115E+03  0.235E+04  0.109E+01  -0.598E+01 

29  0.39GE+05  -0.320E+03  -0 . 115E+03  0.235E+04  -0.996E+00  0.634E+01 

30  0.207E+05   0.449E+03  -0.980E+02  0.313E+04  -0.190E+01  0.592E+01 

31  0.207E+05   C.449E+03  -0.980E-I02  0.313E+04  0.190E+01  -0.592E+01 

32  0.390E+05  -0.320E+03  -0.115E+03  0.235E+04  0.996E+00  -0.634E+01 

33  0.391E+05  -0.281E+03  -0.594E+00  0.235E+04  -0.B02E+01  -0.205E+01 

34  0.207E+05   0.482E+03  -0.107E+01  0.313E+04  -0.720E+01  -0.404E+01 

35  0.207E+05   0.482E+03  -0.107E+01  0.313E+04  0.720E+01  0.404E+01 

36  0.391E+05  -0.281E+03  -0.594E+00  0.235E+04  0.802E+01  0.205E+01 

37  0.391E+05  -0.281E+03  -0.646E+00  0.235E+04  -0.778E+01  -0.206E+01 

38  0.207E+05   0.482E+03  -0.117E+01  0.313E+04  -0.701E+01  -0.401E+01 

39  0.2C7E+05   C.482E+03  -0.117E+01  0.313E+04  0.701E+01  0.401E+01 

40  0.391E+05  -0.2E1E+C3  -0.646E+00  0.235E+04  0.778E+01  0.206E+01 

41  0.391E+05  -0.2B1E+G3   0.320E+00  0.235E+04  -0.167E+01  0.370E+00 

42  0.207E+05   0.4B2E+03   0.274E+00  0.313E+04  -0.173E+01  -0.927E-C1 

43  G.207E+05   0.482E+03   0.274E+00  0.313E+04  0.173E+01  0.927E-01 

44  0.391E+05  -0.281E+03   0.320E+00  0.235E+04  0.167E+01  -0.370E+00 

45  O.SSIE-^CS  -0.282E+03   0.641E+01  0.235E+04  -0.211E+01  0.167E+00 

46  0.207E+C5   0.481E+03   0.552E+01  0.313E+04  -0.215E+01  -0.401E+00 

47  0.207E+05   0.481E+03   0.552E+01  0.313E+04  0.215E+01  0.401E+00 

48  0.391E+05  -0.282E+03   0.641E+01  0.235E+04  0.211E+01  -0.167E+00 

49  0.391E+05  -0.294E+03  -0.422E+02  0.235E+04  -0.128E+01  0.238E+01 
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50  0.207E+05  0.471E+03  -0.361E+02  0.313E+04  -0.106E+01  0.20BE+01 

51  0.207E+05  0.471E+03  -0.361E+02  0.313E+04  0.106E+01  -0.20BE+01 

52  0.391E+05  -0.294E+03  -0.422E+02  0.235E+04  0.128E+01  -0.23BE+01 

53  0.390E+05  -0.295E+03  -0.416E+02  0.235E+04  -0.119E+01  0.202E+01 

54  0.207E+05  0.470E+03  -0.356E+02  0.313E+04  -0.100E+01  0.201E+01 

55  0.207E+05  0.470E+03  -0.356E+02  0.313E+04  0.100E+01  -0.201E+01 

56  0.390E+05  -0.295E+03  -0.416E+02  0.235E+04  0.119E+01  -0.202E+01 

57  0.391E+05  -0.2B1E+03  0.629E+01  0.235E+04  0.179E+01  -0.323E+00 

58  0.207E+05  0.482E+03  0.535E+01  0.313E+04  0.212E+01  0.264E+00 

59  0.207E+05  0.482E+03  0.535E+01  0.313E+04  -0.212E+01  -0.264E+00 

60  0.391E+05  -0.281E+03  0.629E+01  0.235E+04  -0.179E+01  0.323E+00 

61  0.391E+05  -0.280E+03  0.293E+00  0.235E+04  0.284E+01  -0.130E+00 

62  0.207E+05  0.483E+03  0.287E+00  0.313E+04  0.238E+01  0.493E+00 

63  0.207E+05  0.483E+03  0.287E+00  0.313E+04  -0.238E+01  -0.493E+00 

64  0.391E+05  -0.280E+03  0.293E+00  0.235E+04  -0.2B4E+01  0.130E+00 

ALFA  :    5.000000 

NEL     PI  R2  R3         R6  R5  P.4  RE 

1  0.997E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.974E+00   0.971E+00 

2  0.100E+01  0.1O0E+01  0.100E+01  0.100E+01  0.100E+01  0.898E+00   0.898E+00 

3  C.IOOE+Ol  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.B98E+00   0.B98E+00 

4  0.997E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.974E+00   0.971E+00 

5  0.998E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.983E+00   o'.  981E+00 

6  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.931E+00   0.931E+00 

7  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.931E+00   0.931E+00 

8  0.998E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.983E+00   0.981E+00 

9  0.997E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.974E+00   0.971E+00 

10  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.898E+00   0.898E+00 

11  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.898E+00   0.898E+00 

12  0.997E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.974E+00   0.971E+00 


137 


13  0.998E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.983E+00  0.9eiE+00 

14  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.931E+00  0.931E+00 

15  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.931E+00  0.931E+00 

16  0.998E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.983E+00  0.981E+00 

17  0.997E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.974E+00  0.971E+00 

18  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.898E+00  0.898E+00 

19  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.898E+00  0.898E+00 

20  0.997E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.974E+00  0.971E+00 

21  0.998E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.983E+00  0.981E+00 

22  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.931E+00  0.931E+00 

23  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.931E+00  0.931E+00 

24  0.998E400  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.983E+00  0.981E+00 

25  0.997E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.974E+00  0.971E+00 

26  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.B98E+00  0.898E+00 

27  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.898E+00  0.B98E+00 

28  0.997E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.974E+00  0.971E+00 

29  0.998E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.983E+00  0.981E+00 

30  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.931E+00  0.931E+00 

31  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.931E+00  0.931E+00 

32  0.998E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.983E+C0  0.981E+00 

33  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

34  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.979E+00  0.978E+00 

35  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.979E+00  G.978E+00 

36  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  C.994E+00 

37  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

38  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.979E+00  0.978E+00 

39  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.979E+00  0.978E+00 

40  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

41  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

42  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.978E+00  0.97BE+00 
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43  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.978E+00  0.97BE+00 

44  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

45  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

46  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.978E+00  0.97BE+00 

47  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.978E+00  0.978E+00 

48  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

49  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

50  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.978E+00  0.978E+00 

51  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.978E+00  0.978E+00 

52  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

53  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

54  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.979E+00  0.979E+00 

55  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.979E+00  0.979E+00 

56  0.99SE+00  C.lOOE+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

57  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

58  0.100E+C1  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.978E+00  0.978E+00 

59  O.IOOE+Oi  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.978E+00  0.978E+00 

60  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

61  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

62  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.979E+00  0.978E+00 

63  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.979E+00  0.978E+00 

64  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.994E+00 

TOTAL  REL.     RT1  RT2        RT3        RT6        RT5        RT4         RT 

0.944E+00  O.OOOE+OO   0.000E+00  0.000E+00  0.000E+00  0.000E+00   0.103E+00 

* 

TOTAL  STRUCTURE  RELIABILITY  =    0.103E+00 
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*  ADINA-IN  INPUT  FILE 

A 

a    THA3D4.IN,    EIGHT   SYMMETRIC    LAYERS,    REPAIR   W/    DIFFER.    LAYUP   ANGLE. 

A 

FILEUNITS    LIST=8    L0G  =  7    ECH0=7 
CONTROL   PLOTUNIT=CM 
COLORS    BCODE=BLUE 

A 

DATABASE   CREATE 
WORKSTATION    DEVICES 
A 

HEADING    '    THA3D4.IN;    A**EIGHT  LAYERS,    DIFFERENT  PATCH  ANGLE,    C90,90I1    AAA 

A 

MASTER    IDOF=000111 

PRINTOUT  VOLUME=MAXIMUM    IPD=1    IPRIC=0    P=STRAINS 

PORTHOLE   FORMATTED=YES   FILE=60 

A 

COORDINATES    /    ENTRIES    NODE  X  Y  Z 

1  -20.         -20.       0.1 

2  0.  -20.       0.1 

3  20.         -20.       0.1 

4  -20.  0.       0.1 

5  0.  0.       0.1 

6  20.  0.       0.1 

7  -20.  20.       0.1 

8  0.        '    20.       0.1 

9  20.  20.       0.1 

21  -20.         -20.       0. 

22  0.  -20.       0. 

23  20.  -20.       0. 

24  -20.  0.       0. 

25  0.  0.       0. 

26  20.  0.       0. 

27  -20.  20.       0. 

28  0.  20.       0. 

29  20.  20.       0. 

101  5.  0.       0. 

102  0.  10.       0. 

103  5.  10.       0. 

104  15.  2.68    0. 

105  7.68      10.  0. 
,      '                                106                15.            10.  0. 

107  15.  -10.  0. 

A===r================================================ 

*N0TE  THE   MAXES    MEAN    :    1=90DEG    2=15    3=75    4=45    5=-45 

A===================================================== 

MATERIAL    1    ORTHOTROPIC    181. E05    10.3E05    10.3E05    0.0159    0.0159    0.28, 

GAB=7.17E05    7.17E05    7.17E05 

A 

SYSTEM   1    CYLINDRIC   X=0    Y=0    Z=0    PHI=0   THETA=-90.    XSI=90. 

COORDINATES    /    ENTRIES    NODES    R   THETA  XL 

10  10.       0.  0.1 

11  10.       45.  0.1 

12  10.       90.  0.1 

13  10.       135.  0.1 

14  10.       180.  0.1 

15  10.       225.  0.1 

16  10.       270.  0.1 

17  10.       315.  0.1 
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18 

10. 

360. 

0. 

30 

10. 

0. 

0. 

31 

10. 

45. 

0. 

32 

10. 

90. 

0. 

33 

10. 

135. 

0. 

34 

10. 

180. 

0. 

35 

10. 

225. 

0. 

36 

10. 

270. 

0. 

37 

10. 

315. 

0. 

38 

10. 

360. 

0. 

LINE  CYLINDRIC  11  10  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  12  11  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  13  12  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  14  13  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  15  14  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  16  15  EL=1  MIDN0DE5=1  NC  =  A 
LINE  CYLINDRIC  17  16  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  18  17  EL=1  MIDNODES=l  NC=A 
LINE  CYLINDRIC  31  30  EL=1  MIDNODES=l  NC  =  A 
LINE  CYLINDRIC  32  31  EL=1  MIDN0DES=1  NC  =  A 
LINE  CYLINDRIC  33  32  EL  =  1  MIDN0DES=1  NC  =  A 
LINE  CYLINDRIC  34  33  EL=1  MIDN0DES=1  NC  =  A 
LINE  CYLINDRIC  35  34  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  36  35  EL-1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  37  36  EL=1  MIDN0DES=1  NC=A 
LINE  CYLINDRIC  38  37  EL-1  MIDN0DES  =  1'  NC  =  A 

A 

EGROUP  1  THREEDSOLID  MATERIALS  TABLES 

GVOLUME  7  4  18  17  27  24  38  37  EL1=1  EL2  =  1 

11  10  24  21  31  30  EL1=1  EL2  =  1 

12  11  21  22  32  31  EL1  =  1  EL2  =  1 

13  12  22  23  33  32  EL1=1  EL2=1 

14  13  23  26  34  33  EL1=1  EL2=1 

15  14  26  29  35  34  EL1=1  EL2=1 

16  15  29  28  36  35  EL1=1  EL2=1 


GVOLUME 
GVOLUME 
GVOLUME 
GVOLUME 
GVOLUME 
GVOLUME 


GVOLUME  8  7  17  16  28  27  37  36  EL1=1  EL2=1 


GSURFACE 


8  28  27 


GSURFACE  8  9  29  28 


EL1=1   EL2=4    N0=9 
EL1=1    EL2=4    N0=9 


AXES-ORTHOTROPIC  1  NODI=101  N0DJ=103  NODK= 


AXES-ORTHOTROPIC  2 
AXES-ORTHOTROPIC  3 
AXES-ORTHOTROPIC  4 
AXES-ORTHOTROPIC  5 
ASTRESSTABLE  112 
STRESSTABLE  1  21 
EDATA  /  ENTRIES  EL  TABLE  MAXES 


NODI=101  N0DJ=104  NODK= 
N0DI=101  N0DJ=105  NODK^ 
NODI=101  NODJ=106  NODK= 
NODI=101  NODJ=107  NODK^ 
3  4  5  6  7  8  21  26  27 


EL3  =  4 

NODES= 

=  27 

EL3  =  4 

NODES^ 

:27 

EL3  =  4 

NODES: 

=  27 

EL3  =  4 

NODES = 

=  27 

EL3  =  4 

NODES= 

=  27 

EL3  =  4 

NODES: 

=  27 

EL3  =  4 

NODES: 

=  27 

EL3  =  4 

NODES: 

=  27 

102 

102 

102 

=  102 

=  102 

STEP  4  TO 


STEP  4  TO 


STEP  4  TO 


STEP  4  TO 


1 

29 
2 

30 
3 

31 
4 

32 
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LOADS  ELEMENT 
TO 


9   2   -3.0E04 
16   2   -3.0E04 


FIXB  123  LINES  /  8  28 

FIXB  23  SURFACES  /   7  B  28  27  /  8  9  29  28 

A 
A 

EGROUP  2  THP.EEDSOLID  MATERIALS  TABLES 
GVOLUME  11  12  5  5  31  32  25  25  EL1=1  EL2  =  1 


GVOLUME  12  13  5 
GVOLUME  13  14  5 
GVOLUME  14  15  5 
GVOLUME  15  16  5 
GVOLUME  16  17  5 
GVOLUME  17  18  5 
GVOLUME  10  11  5 
AXES-ORTHOTROPIC 
AXES-ORTHOTROPIC 
AXES-ORTHOTROPIC 
AXES-ORTHOTROPIC 
AXES-ORTHOTROPIC 
*STRES STABLE  1  1 


EL3=4  N0DES=27 
5  32  33  25  25  EL1=1  EL2=1  EL3=4  N0DES=27 
5  33  34  25  25  EL1=1  EL2=1  EL3=4  N0DES=27 
5  34  35  25  25  EL1=1  EL2  =  1  EL3=4  N0DES=27 
5  35  36  25  25  EL1=1  EL2=1  EL3=4  N0DES=27 
5  36  37  25  25  EL1=1  EL2=1  EL3=4  N0DES=27 
5  37  38  25  25  EL1=1  EL2  =  1  EL3  =  4  N0DES=27 
5  30  31  25  25  EL1=1  EL2=1  EL3=4  NODES=27 

1  NODI=101  NODJ=103  NODK=102 

2  NODI=101  NODJ=104  NODK=102 

3  NODI=101  NODJ=105  NODK=102 

4  NODI=101  NODJ=106  NODK=102 

5  NODI=101  NODJ=107  NODK=102 
2  3  4  5  6  7  8  21  26  27 


STRESSTABLE  1   21 

EDATA  /  ENTRIES  EL  TABLE  MAXES 


STEP  4  TO 


STEP  4  TO 


STEP  4  TO 


STEP  4  TO 


29 
2 

30 
3 

31 
4 

32 


1  /  2 


A 

A 

EGZONE  NAME=THREEDSOLID  / 

FRAME- HEADING=UPPER  XSF=1.0  YSF=0.5  XFMAX 

MESH  ZONE=THREEDSOLID  NODES=0  ELEMENT=1  H 

A 

ADINA 

A 

END 


=22.5  YFMAX=17.0 
IDDEN=DASHED  BCODE=ALL 
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INPUT  STRESS  FN  =  THA3D4 . STR 

INPUT  ELEM.  ANGLE  FN  =  THA3D4.EL 

INPUT   AREAS  OF  ELEMENTS  FN  =THA3D4.ARE 

OUTPUT  FN  =THA3D4.REL 
OUTPUT  : THA3D4 . REL 

NEL     SX  SY          SZ        SXY         SXZ         SYZ  ANGLE 

1  -0.336E+02  0.371E+05  -0.470E+00  -0.197E+04   0.142E+01   0.316E+01  90.0 

2  0.690E+03  0.216E+05  -0.521E+00   0.295E+04   0.133E+01   0.322E+01  75.0 

3  0.690E+03  0.216E+05  -0.521E+00   0.295E+04  -0.133E+01  -0.322E+01  75.0 

4  -0.336E+02  0.371E+05  -0.470E+00  -0.197E+04  -0.142E+01  -0.316E+01  90.0 

5  -0.722E+03  0.382E+05   0.137E+02  ^0.203E+04  -0.123E+01   0.284E+01  90. C 

6  -0.759E+02  0.215E+05   0.158E+02   0.279E+04  -0.666E+00   0.504E+01  75.0 

7  -0.759E+02  0.215E+05   0.158E<-02   0.279E+04   0.666E+00  -0.504E+01  75.0 

8  -0.722E+03  0.382E+05   0.137E+02  -0.203E+04   0.123E+01  -0.284E+01  90.0 

9  -0.530E+03  0.393E+05   0.120E+02  -0.228E+04   0.801E+00  -0.160E+02  90.0 

10  0.468E+02  0.213E+05   0.137E+02   0.248E+04   0.433E+01  -0.165E+02  75.0 

11  0.468E+02  0.213E+05   0.137E+02   0.248E+04  -0.433E+01   0.165E+02  75.0 

12  -0.530E+03  0.393E+05   0.120E+02  -0.22BE+04  -0.801E+00   0.160E+02  90.0 

13  -0.189E+03  0.397E+05  -0.200E+02  -0.241E+04   0.390E+01  -0.153E+02  90.0 

14  0.380E+03  0.213E+05  -0.166E+02   0.23BE+04   0.407E+01  -0.166E+02  75.0 

15  0.380E+03  0.213E+05  -0.166E+02   0.238E+04  -0.407E+01   0.166E+02  75.0 

16  -C.189E+03  0.397E+05  -0.200E+02  -0.241E+04  -0.390E+01   0.153E+02  90.0 

17  0.166E+02  0.378E+05  -0.109E+02  -0.223E+04  -0.117E+01  -0.141E+01  90.0 

18  0.627E+03  0.208E+05  -0.882E+01   0.250E+04  -0.172E+01  -0.371E+01  '   75.0 

19  C.627E+03  0.206E+C5  -0.862E+01   0.250E+04   0.172E+01   0.371E+01  75.0 

20  0.166E+02  0.378E+05  -0.109E+02  -0.223E+04   0.117E+01   0.141E+01  90.0 

21  -0.564E+03  0.377E+05   0.347E+02  -0.209E+04   0.981E+00  -0.526E+01  90.0 

* 

22  0.411E+02  0.209E+05   0.344E+02   0.260E+04   0.167E+00  -0.618E+01  75.0 

23  0.411E+02  0.209E+05   0.344E+02   0.260E+04  -0.167E+00   0.618E+01  75.0 

24  -0.564E+03  0.377E+05   0.347E+02  -0.209E+04  -0.981E+00   0.526E+01  90.0 

25  -0.293E+03  0.375E+05  -0.101E+03  -0.243E+04  -0.309E+01  -0.679E+01  90.0 
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26  0.146E+03  0.192E+05  -0.844E+02  0.187E+04  -0.457E+01  -0.428E+01  75.0 

27  0.146E+03  0.192E+05  -0.844E+02  0.187E+04   0.457E+01  0.428E+01  75.0 

28  -0.293E+03  0.375E+05  -0.101E+03  -0.243E+04   0.309E+01  0.679E+01  90.0 

29  0.120E+02  0.418E+05  -0.140E+03  -0.252E+04  -0.267E+01  -0.487E+01  90.0 

30  0.664E+03  0.227E+05  -0.122E+03  0.265E+04  -0.502E+01  -0.298E+01  75.0 

31  0.664E+03  0.227E+05  -0.122E+03  0.265E+04   0.502E+01  0.298E+01  75.0 

32  0.120E+02  0.418E+05  -0.140E+03  -0.252E+04   0.267E+01  0.487E+01  90.0 

1  -0.123E+03  0.308E+05  -0.208E+02  -0.538E+03  -0.223E+01  0.212E+01  90.0 

2  -0.127E+03  0.308E+05  -0.350E+02  -0.538E+03  -0.696E+00  0.155E+01  90.0 

3  -0.127E+03  0.308E+05  -0.350E+02  -0.538E+03   0.696E+00  -0.155E+01  90.0 

4  -0.123E+03  0.30BE+05  -0.208E+02  -0.538E+03   0.223E+01  -0.212E+01  90.0 

5  -0.874E+02  0.301E+05  0.748E+02  -0.690E+03  -0.302E+01  0.302E+01  90.0 

6  -0.913E+02  0.301E+05  0.613E+02  -0.690E+03  -0.329E+00  0.357E+01  90.0 

7  -0.913E+02  0.301E+05  0.613E+02  -0.690E+03   0.329E+00  -0.357E+01  90.0 

8  -0.B74E+02  0.301E+05  0.748E+02  -0.690E+03   0.302E+01  -0.302E+01  90.0 

9  -0.698E+02  0.300E+05  0.499E+02  -0.775E+03  -0.306E+01  0.358E+01  90.0 

10  -0.728E+02  0.300E+05  0.393E+02  -0.775E+03  -0.124E+01  0.457E+01  90.0 

11  -0.728E+02  0.300E+05  0.393E+02  -0.775E+03   0.124E+01  -0.457E+01  90.0 

12  -0.69BE+02  0.300E+05  0.499E+02  -0.775E+03   0.306E+01  -0.35BE+01  90.0 

13  -0.488E+C2  C.29SE+05  -0.410E+C2  -0.810E+03   0.150E+01  -0.539E+01  90.0 

14  -0.517E+02  0.299E+05  -0.514E+02  -0.810E+03   0.943E+00  -0.355E+01  90.0 

15  -0.517E+02  0.299E+05  -0.514E+02  -0.810E+03  -0.943E+00  0.355E+01  90.0 

16  -0.488E+02  0.299E+05  -0.410E+02  -0.810E+03  -0.150E+01  0.539E+01  90.0 

17  -0.822E+02  C.302E+05  -0.545E+02  -0.768E+03   0.178E+01  -0.117E+02  90.0 

18  -0.849E+02  0.301E+05  -0.640E+02  -0.769E+03   0.309E+00  -0.996E+01  90.0 

19  -0.B49E+02  0.301E+05  -0.640E+02  -0.769E+03  -0.309E+00  0.996E+01  90.0 

20  -0.822E+02  0.302E+05  -0.545E+02  -0.768E+03  -0.178E+01  0.117E+02  90.0 

21  -0.12BE+03  0.309E+05  0.374E+02  -0.668E+03   0.724E+00  -0.125E+02  90.0 

22  -0.130E+03  0.309E+05  0.298E+02  -0.668E+03   0.211E+00  -0.116E+02  90.0 

23  -0.130E+03  0.309E+C5  0.29BE+02  -0.668E+03  -0.211E+00  0.116E+02  90.0 
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24  -0.12BE+03  0.309E+05  0.374E+02  -0.66BE+03  -0.724E+00  0.125E+02  90.0 

25  -0.162E+03  0.315E+05  0.563E+02  -0.620E+03   0.193E+01  -0.617E+01  90.0 

26  -0.165E+03  0.315E+05  0.456E+02  -0.620E+03   0.117E+01  -0.485E+01  90.0 

27  -0.165E+03  0.315E+05  0.456E+02  -0.620E+03  -0.117E+01  0.485E+01  90.0 

28  -0.162E+03  0.315E+05  0.563E+02  -0.620E+03  -0.193E+01  0.617E+01  90.0 

29  -0.163E+03  0.314E+05  -0.605E+02  -0.589E+03  -0.297E+01  0.613E+01  90.0 

30  -0.166E+03  0.314E+05  -0.699E+02  -0.589E+03  -0.114E+01  0.337E+01  90.0 

31  -0.166E+03  0.314E+05  -0.699E+02  -0.589E+03   0.114E+01  -0.337E+01  90.0 

32  -0.163E+03  0.314E+05  -0.605E+02  -0.589E+03   0.297E+01  -0.613E+01  90.0 

NEL      SI  S2  S3  S6  S5  S4 

1  0.371E+05  -0.336E+02  -0.470E+00  0.197E+04  0.316E+01  -0.142E+01 

2  0.216E+05   0.612E+03  -0.521E+00  0 . 266E+04  0.345E+01  -0.451E+00 

3  0.216E+05   0.612E+03  -0.521E+00  0.266E+04  -0.345E+01  0.451E+00 

4  0.371E+05  -0.336E+02  -0.470E+00  0.197E+04  -0.316E+01  0.142E+01 

5  0.3B2E+05  -0.722E+03   0.137E+02  0.203E+04  0.2S4E+01  0.123E+01 

6  0.214E+05  -0.249E+02   0.158E+02  0.298E+04  0.470E+01  0.195E+01 

7  0.214E+05  -0.249E+02  0.158E+02  0.298E+04  -0.470E+01  -0.195E+01 
B  0.3B2E+05  -0.722E+03  0.137E+C2  0.203E+04  -0.284E+01  -0.123E+01 
9  0.393E+05  -0.530E+03   0.120E+02  0.22BE+04  -0.160E+02  -0.801E+00 

10  0.211E+05   0.229E+03   0.137E+02  0.316E+04  -0.148E+02  -0.845E+01 

11  0.211E+05   0.229E+03   0.137E+02  0.316E+04   0.148E+02   0.845E+C1 

12  0.393E-^05  -0.530E+03   0.120E+02  0.22BE+04   0.160E+02   0.801E+00 

13  0.397E+05  -0.189E+03  -0.200E+02  0.241E+04  -0.153E+02  -C.390E+01 

14  0.211E+05   0.589E+03  -0.166E+02  0.316E+04  -0.150E+02  -0.823E+01 

15  0.211E+05   0.589E+03  -0.166E+02  0.316E+04   0.150E+02   0.823E+01 

16  0.397E+05  -0.189E+03  -0.200E+02  0.241E+04   0.153E+02   0.390E+01 

17  0.378E+05   0.166E+02  -0.109E+02  0.223E+04  -0.141E+01   0.117E+01 

18  0.207E+05   0.730E+03  -0.882E+01  0.289E+04  -0.403E+01   0.704E+00 

19  0.207E+05   0.730E+03  -0.882E+01  0.289E+04   0.403E+01  -0.704E+00 
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20  0.378E+05   0.166E+02  -0.1O9E+02  0.223E+04   0.141E+01  -0.117E+01 

21  0.377E+05  -0.564E+03   0.347E+02  0.209E+04  -0.526E+01  -0.9B1E+00 

22  0.208E+05   0.140E+03   0.344E+02  0.297E+04  -0.592E+01  -0.176E+01 

23  0.208E+05   0.140E+03   0.344E+02  0.297E+04   0.592E+01  0.176E+01 

24  0.377E+05  -0.564E+03   0.347E+02  0.209E+04   0.526E+01  0.981E+00 

25  0.375E+05  -0.293E+03  -0 . 101E+03  0.243E+04  -0.679E+01  0.309E+01 

26  0.189E+05   0.488E+03  -0.844E+02  0.315E+04  -0.532E+01  0.331E+01 

27  0.189E+05   0.488E+03  -0.844E+02  0.315E+04   0.532E+01  -0.331E+01 

28  0.375E+05  -0.293E+03  -0.101E+03  0.243E+04   0.679E+01  -0.309E+01 

29  0.418E+05   0.120E+02  -0.140E+03  0.252E+04  -0.487E+01  0.267E+01 

30  0.226E+05   0.818E+03  -0.122E+03  0.323E+04  -0.418E+01  0.407E+01 

31  0.226E+05   0.818E+03  -0.122EJ-03  0.323E+04   0.418E+01  -0.407E+01 

32  0.418E+05   0.120E+02  -0.140E+03  0.252E+04   0.487E+01  -0.267E+01 

33  0.308E+05  -0.123E+03  -0.208E+02  0.538E+03   0.212E+01  0.223E+01 

34  0.308E+05  -0.127E+03  -0.350E+02  0.538E+03   0.155E+01  0.696E+00 

35  0.308E+05  -0.127E+03  -0.350E+02  0.538E+03  -0.155E+01  -0.696E+00 

36  0.308E+05  -0.123E+03  -0.208E+02  0.53BE+03  -0.212E+01  -0.223E+01 

37  0.3O1E+05  -0.874E+02   0.748E+02  0.690E+03   0.302E+01  0.302E+01 

38  C.301E+05  -0.913E+02   0.613E+02  0.690E+03   0.357E+01  0.329E+00 

39  0.301E+05  -0.913E+02   0.613E+02  0.690E+03  -0.357E+01  -0.329E+00 

40  0.301E+05  -0.874E+02   0.748E+02  0.690E+03  -0.302E+01  -0.302E+01 

41  0.300E+05  -0.698E+02   0.499E+02  0.775E+03   0.356E+01  0.306E+01 

42  0.300E+05  -0.728E+02   0.393E+02  0.775E+03   0.457E+01  0.124E+01 

43  0.300E+05  -0.728E+02   0.393E+02  0.775E+03  -0.457E+01  -0.124E+01 

44  0.300E+05  -0.698E+02   0.499E+02  0.775E+03  -0.35BE+01  -0.306E+01 

45  0.299E+05  -0.488E+02  -0.410E+02  0.810E+03  -0.539E+01  -0.150E+01 

46  0.299E+05  -0.517E+02  -0.514E+02  0.B10E+03  -0.355E+01  -0.943E+00 

47  0.299E+05  -0.517E+02  -0.514E+02  0.810E+03   0.355E+01  0.943E+00 

48  0.299E+05  -0.488E+02  -0.410E+02  0.810E+03   0.539E+01  0.150E+01 

49  0.302E+05  -0.B22E+02  -0.545E+02  0.768E+03  -0.117E+02  -0.178E+01 
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50  0.301E+05  -0.849E+02  -0.640E+02  0.769E+03  -0.996E+01  -0.309E+00 

51  0.301E+05  -0.849E+02  -0.640E+02  0.769E+03  0.996E+01  0.309E+00 

52  0.302E+05  -0.B22E+02  -0.545E+02  0.768E+03  0.117E+02  0.178E+01 

53  0.309E+05  -0.128E+03  0.374E+02  0.668E+03  -0.125E+02  -0.724E+00 

54  0.309E+05  -0.130E+03  0.298E+02  0.668E+03  -0.116E+02  -0.211E+00 

55  0.309E+05  -0.130E+03  0.298E+02  0.668E+03  0.116E+02  0.211E+00 

56  0.309E+05  -0.128E+03  0.374E+02  0.668E+03  0.125E+02  0.724E+00 

57  0.315E+05  -0.162E+03  0.563E+02  0.620E+03  -0.617E+01  -0.193E+01 

58  0.315E+05  -0.165E+03  0.456E+02  0.620E+03  -0.485E+01  -0.117E+01 

59  0.315E+05  -0.165E+03  0.456E+02  0.620E+03  0.4B5E+01  0.117E+01 

60  0.315E+05  -0.162E+03  0.563E+02  0.620E+03  0.617E+01  0.193E+01 

61  0.314E+05  -0.163E+03  -0.605E+02  0.589E+03  0.613E+01  0.297E+01 

62  0.314E+05  -C.166E+03  -0.699E+02  0.589E+03  0.337E+01  0.114E+01 

63  0.314E+05  -0.166E+03  -0.699E+02  0.589E+03  -0.337E+01  -0.114E+01 

64  0.314E+05  -0.163E+03  -0.605E+02  0.589E+03  -0.613E+01  -0.297E+01 
ALFA  :    5.000000 

NEL     Rl  R2  R3         R6  R5  R4  RE 

1  0.1OOE+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00   0.999E+00 

2  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.996E+00   0.996E+00 

3  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.996E+00   0.996E+00 

4  0.1O0E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00   0.999E+00 

5  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00   0.999E+00 

6  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00   0.995E+00 

7  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00   0.995E+00 

8  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00   0.999E+00 

9  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00   0.998E+00 

10  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.991E+00   0.990E+00 

11  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.991E+00   0.990E+00 

12  0.999E+00  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00   0.998E+00 

13  0.1O0E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00   0.998E+00 


148 


14  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.994E+00  0.994E+00 

15  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.994E+00  0.994E+00 

16  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

17  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

18  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.994E+00  0.994E+00 

19  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.994E+00  0.994E+00 

20  0.100E+01  0.1OOE+O1  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.998E+00 

21  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00  0.999E+00 

22  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.10OE+O1  0.995E+00  0.995E+00 

23  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.995E+00  0.995E+00 

24  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.999E+00  0.999E+00 

25  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.997E+00  0.997E+00 

26  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.991E+00  0.991E+00 

27  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.991E+00  0.991E+00 

28  0.100E+01  0.100E+01'  0.100E+01  0.100E+01  0.100E+01  0.997E+00  0.997E+00 

29  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.997E+00 

30  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.993E+00  0.993E+00 

31  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.993E+00  0.993E+00 

32  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.998E+00  0.997E+00 

33  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

34  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

35  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

36  0.100E+01  0.1OOE+O1  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

37  0.100E+01  0.100E+01  0.100E+C1  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

38  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

39  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

40  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

41  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

42  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

43  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 
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44  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

45  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

46  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

47  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

48  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

49  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

50  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.1O0E+01  0.100E+01 

51  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.1O0E+01  0.100E+01 

52  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

53  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

54  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

55  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

56  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

57  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

58  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

59  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

60  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

61  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

62  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.10CE+01  0.100E+01 

63  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

64  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01  0.100E+01 

TOTAL  REL.     RT1         RT2         RT3         RT6         RT5         RT4  •   RT 

0.992E+00   0.000E+O0   O.OOOE+OO   O.OOOE+OO  0.0O0E+O0   O.OOOE+OO  0.873E+00 
.TOTAL  STRUCTURE  RELIABILITY  =    0.87  3E+0  0 
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